


ISTRUZIONI, NOTE E 
SEGRETI TECNICI DEI PIÙ 
DIFFUSI DRIVE PER 
COMPUTER 


ìmodore 


COMMODORE 64-128 


DRIVE 


1541/1571 


I LISTATI DI TUTTE LE 
ROUTINE PER USARE AL 
MASSIMO DELLA 
POTENZA I DRIVE 
COMMODORE 









COMMODORE 64/128-1 DRIVE 1541/1571 è un supplemento a NEXT 
STRATEGY registrato presso il Tribunale di Milano con il n. 339 il 
6/7/1985. Prezzo per copia L. 5.000. Estero il doppio. Sped. Abb. Po¬ 
stale Gr. 111/70. Direttore responsabile Massimo Soncini - EDISOFT srl 

- Via Ferrante Aporti, 34 - 20125 Milano tei. 02/2893580 - 02/2828464. 
Distribuito da EUROSTAMPA srl - C.so V. Emanuele II, 111 - 10128 
Torino tei. 011/538166-7. Stampa EDITOR srl - Via G. De Grassi, 12 

- Milano. 


Maggio 1986 


53onrir»Ff i n 


pag . 


Introduzione 



3 

Capitalo 

1 : 

La memoria su 
(Listati : 

disco 

TEST QUALITÀ’ DISCO 

4 

Capitola 

2: 

I comandi del 
(Listati : 

DOS 2.6 

UTILITY DISK 

PULIZIA DISCO 

ORDINAMENTO DIRECTORY 

10 


Capitolo 3: I files su disco 16 

CListati: LEGGE FILE SEQ. 

LEGGE FILE REL. 

LEGGE Cft.nPI DATABASE 
LEGGE HDR FILE 
ARCHIUIO RANDOM 

Capitolo 4: Gli errori... e le protezioni con errori 19 

C + TABELLA ERRORI) 

CListati: RECUPERA FILE 

CREA ERRORI 
TROUA ERORI 


Capitolo 5: Ancora sulle protezioni 23 

(LISTATI : TEST SULLA DIRECTORY 

TEST SUL NOTCH 
DESTROY 1.0 
LEGGE 8 SCRIUE 

29 

COPIA-FILES 1.1 
BACK-UP DISCO/NASTRO 
BACK-UP NASTRO/DISCO 

Capitolo 7: Il linguaggio macchina ed il 1541 33 

(LISTATI: i 

COPIATORE RAPIDO SENZA ERRORI 
COPIA ERRORI 
CARICAMENTO RAPIDO 
FORMATTAZIONE RAPIDA 


Capitolo 


6: I copiatori 
(LISTATI : 


Capitolo 8: 

Capitolo 9: 
Capitolo 10: 


La scrittura diretta su disco: gli editor 
CLISTATI: EDITOR + istruzioni 

Proteggere un disco tramite un editor 


I test via software sulla meccanica del 1541 
(LISTATI: DRIUE TEST 01 

DRIUE TEST 02 


38 

41 

46 


1 


DRIUE TEST 03 


Altre applicazioni per il 1541 
CLISTfìTI: GESTIONE DIRECTORY 

ARCHIUIO RANDOM 
NOHE 8 ID DISCO 
UNIONE PROGRAMMI 
DATABASE PER DISCO: 

- DIR. e.i 

- DIR. S.B 


Capitalo 11: Disk Drive 1571 
Modo operativo 1571 

Modo operativo 1541 
I Dischi 

Installazione e manutenzione 
Comandi Basic 


Append 

ice 


Listati 

Listato 

n. 1 

x 

TEST QUftLITlV DISCO 

Listato 

n. 8 

m 

UTILITY DISK 

Listato 

n. 3 

m 

PULIZIA DISCO 

Listato 

n . 4 

m 

ORDINAMENTO DIRECTORY 

Listato 

n . S 

X 

LEGGE FILE SEQ. 

Listato 

n . 6 

■ 

LEGGE FILE REL. 

Listato 

n. 7 

x 

LEGGE CAFFI DATA BASE 

Listato 

n • 8 

x 

LEGGE HOR FILE 

Listato 

n . 9 

x 

ARCHIVIO RANDOM 

Listato 

n . 10 

a 

RECUPERA FILE 

Listato 

n . 11 

x 

CREA ERRORI 

Listato 

n . 12 

m 

TROVA ERRORI 

Llstato 

n . 13 

* 

LEGGE & SCRIVE 

Listato 

n . 14 

c 

LEGGE ERRORE 

Listato 

n. Ma» 

TEST DIRECTORY 

Listato 

n. 13 

■ 

TEST NOTCH 

Listato 

n. 16 

m 

DESTROY 1.0 

Listato 

r». 17 

m 

BACKUP NASTRO/D ISCO 

Listato 

n. 18 

X 

BACKUP DISCO/NASTRO 

Listato 

n . 19 

X 

COPIA FILES t.1 

Listato 

n. 20 

X 

COPIATORE RAPIDO SENZA ERRORI 

Listato 

n. 21 

X 

COPIA ERRORI 

Listato 

n .22 

X 

FORMATTAZIONE RAPIDA 

Listato 

n .23 

X 

CARICAMENTO RAPIDO 

Listato 

n . 24 

X 

EDITOR 

Listato 

n .23 

X 

DRIVE TEST 0.1 

Listato 

n .27 

X 

DRIVE TEST 0.2 

Listato 

n . 28 

X 

DRIVE TEST 0.3 

Listato 

n .29 

X 

GESTIOhC DIRECTORY 

Listato 

n .30 

X 

NOIE & IO DISCO 

Listato 

n . 3 1 

X 

UNI OVE PROGRAMMI 

Listato 

n .32 

X 

DIR 2.1 

Listato 

n .33 

X 

DIR 2.2 

Llstato 

n . 34 

X 

NOTES ELETTRONICO 


- ? - 



I IMXFfOniJST I DNE 


Al momento dell’acquisto di questo libro, immagino abbiate 
pensato di riuscire in poco tempo ad impadronirvi di ogni tecnica 
teorica e pratica relativa al lettore di dischi nato per il Commodore 
64. Purtroppo devo deludervi: anche se vi sentirete molto piu’ capaci 
ad in grado di lavorare disinvoltamente, capirete che la “sapienza” 
vi verrà’ quasi esclusivamente dalla pratica, ed in Fondo questo 
libro vuole essere un ottimo aiuto per scoprire cose che col tempo, 
Forse un po’ troppo, avreste Finito per scoprire anche voi da soli. 

Le pubblicazioni Finora uscite sull’argomento, riservate agli addetti 
ai lavori o contenenti delle cose talmente ovvie da risultare 
inutili, non hanno assolutamente esaurito il Filone letteraria delle 
novità’ che sona scopribili sia sul Commodore 64 che sul 1541. 

Ecco perche’ mi sono deciso a scrivere questo libro: non ho mai 
studiato inFormatica sui banchi di scuola, possiedo il 64 da quasi 
tre anni, e mi ritenga poco piu’ di un appassionato del settore: 
perche' non aiutare coloro che si avvicinano a questa interessante 
materia usando un linguaggio Facilmente abbordabile, scaturito 
dall’esperienza pratica e non da accademismi teorici? 

Tutto quello che conosco mi e’ stato dettato dall’esperienza e da 
qualche (pochissimi) indispensabile testo, quale può’ essere ad 
esempio una mappa di memoria, o il DOS del 1541. 

In questo libro verranno trattati un’inFinita’ di argomenti, Forse 
troppi per un solo libro: la gestione dell ’ inFormazione, i metodi di 
protezione dei programmi, gli errori e i test su di essi, la 
manipolazione diretta del disco, il caricamento ed il salvataggio 
rapido dei programmi Cla modiFica del DOSI, i copiatori, i test 
meccanici sul drive, ed altri argomenti ancora. 


Claudio Cerroni 


c sa. I l A t. u .1. o X : 


i n MEnORIA Ij l i XI I SCO 


11 lettore di dischi presenta notevoli ed apprezzabili 
differenze rispetto al registratore: come memoria di massa, infatti, 
e’ molto piu’ rapido e flessibile, lavorando con i files non in modo 
sequenziale ma in una maniera completamente diversa, per cui e’ 
possibile caricare una parte di dati che ci interessano senza 
caricare o comunque passare in rassegna l’intero contenuto 
memorizzato sul supporto magnetico; per usare una 3imilitudine che 
possa meglio illustrarvi la differenza, provate un po’ a pensare alla 
musica registrata su nastro e su disco: su nastro saremo costretti a 
cercare sequenzialmente la canzone desiderata facendo scorrere, se e' 
il caso, l’intera cassetta; su disco basterà’ appoggiare la puntina 
del back-up sulla giusta traccia per ascoltare ciò’ che desideriamo. 

In un drive, e cosi’ nel 1541, e’ il DOS CDisk Operating 
System) che pensa ad indirizzare, dietro nostra istruzione, la 
testina di lettura verso l'informazione da leggere Cdi questo ne 
parleremo in modo piu’ approfondito nel Capitolo dedicato ai comandi 
del DOS 2.G) . 

Un’altra caratteristica che fa del 1541 una macchina piu’ 
utile del 1520 Cil registratore dedicato al 64) e’ la velocita’ di 
caricamento e di gestione dei dati. Infatti, con il registratore per 
alcuni programmi occorrono anche 1B-20 minuti per il completo 
caricamento di un programma , mentre col lettore di dischi sono 
sufficienti 2 minuti e mezzo, o al massimo 3 minuti per occupare 
l’intera memoria disponibile nel 064. Ma, sempre in questo libro, 
troverete delle utility che vi daranno la possibilità’ di attendere 
ancora meno, tramite la riprogrammazione del DOS residente. 

L’interno del 1541 non e' un segreto per nessuno: basta 
infatti aprirlo per vedere come lavora e come e* fatto fin nei minimi 
particolari. L’unico problema consiste nell’automatica invalidità’ 
della garanzia Cle viti sono coperte o segnate dalla ceralacca, e 
sono testimoni del1'avvenuta apertura dell’apparecchio), ed in ogni 
caso vi spiegherò’ in modo semplice, come si compone internamente il 
1541 . 

E’ sottinteso che se riscontrerete anomalie di funzionamento 
Cpotrete testare il funzionamento grazie ad una serie di listati 
sempre presenti in questo libro) vi consiglio di non operare 
direttamente sulla macchina ma di rivolgervi al vostro rivenditore o 
riparatore di fiducia, anche se i tempi saranno probabilmente lunghi. 

Eli schemi meccanici e componentistici non sono pubblicabili: 
per questo vi darò’ una descrizione sommaria per spiegarvi in modo 
semplice come lavori il 1541. < 

Il disco, una volta inserito nella fessura e dopo che avrete 
chiuso lo sportellino, verrà’ premuto da un tampone di feltro contro 
il supporta inferiore, entrando, in contatto con la testina di 
lettura. Quest'ultima si muove lungo un braccio orizzontalmente, e si 
trova al di sotto del disco; quindi osservando un qualsiasi 
dischetto, sappiate che la faccia di lettura e’ quella inferiore, ed 
e' principalmente quella che dovrete assolutamente salvaguardare 
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dalla polvere, dal sudore delle dita, ed altro. 

Molte persone hanno l’abitudine di usufruire 
dell'altra Faccia del dischetto, intagliando simmetricamente una 
Fessura simile per dimensioni a quella già’ presente; non tutti pero’ 
conoscono gli inconvenienti a cui e’ passibile andare incontro. 

Prima di tutto, il dischetto ha una resa Fisica inferiore, 
perche’ costruito per girare in un solo senso; inoltre la garza 
presente al suo interno, che Funziona come tergi-polvere, viene 
rivoltata ogni volta che il disco gira. Ci si può’ accorgere anche 
dal diverso rumore prodotto dal dischetto; sappiate che girando nel 
giusto verso la parte magnetica si pulisce, nel verso contrario, 
invece, si sporca nuovamente. Ecco perche’, come afFidabilita’, un 
supporto tagliato dura meno. 

Come possiamo pulire le testine di lettura? 

Esistono in commercio molti kit completi pratici e convenienti, 
consistenti in un disco di garza imbevuto di alcool da far girare 
all’interno dell’apparecchio per una trentina di secondi. Dato che 
questa operazione sarebbe da ripetere Frequentemente, quasi non 
conviene smontare l’apparecchio per operare manualmente, anche se la 
pulizia risulterebbe senz’altro migliore. 

Ricordatevi, in ogni caso, se intendete aprire il drive, di non 
toccare nulla con le dita, ne’ con oggetti metallici, per non 
pregiudicare la Funzionalità’ delle parti megnetiche (vedremo piu’ 
avanti cosa Fare esattamente). 

Se desiderate eliminare i possibili rumori che, specialmente a 
motorino caldo, caratterizzano il lavoro del 1541, potete farlo 
lubrificando con prodotti al silicone le cinghie di trasmissione. 
Ricordatevi che il drive e’ una macchina molto delicata, quindi 
abbiate l’accortenza di non scuoterla, lasciarla cadere o cose 
simili, parche’ e’ abbastanza Facile che si guasti. 

Il supporto magnetico 


Il dischetto, anche se non sembra, al sua interno non e’ affatto 
rigido: viene costruito con un materiale molto simile al nastro 
magnetico, assumendo una forma circolare per possedere quelle 
caratteristiche che prima abbiamo riportato. Esistono in 
commercio tantissime marche diverse di supporti magnetici: si 
diversificano tra loro non tanto per la qualità’ della parte 
magnetica, ma piuttosto per la qualità’ della meccanica, concernente 
la qualità’ del cartoncino che sostiene il resto, la resistenza alle 
variazioni climatiche (ricordiamoci che una delle peggiori 
caratteristiche del nostro 1541 e’ rappresentata dalla pessima 
dispersione del calore), la presenza di un anello rinforzatone al 
centro, il tipo di garza interna e la lubrificazione necessaria ad un 
perfetto scorimentn del disco... 

Ho eseguito, a questa proposito, una serie di test su alcuni 
dschetti in commercio, senza avere la pretesa di essere infallibile: 
dobbiamo pensare che alcuni supporti differiscono anche dalla 
densità’ della parte magnetica, direttamente proporzionale al loro 
costo. 
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MARCA DISCO 

MOD. QUAL.MA6N DUAL.CART. 

MEMOREX 

1D-40 BUONA 

BUONA 

SCOTCH 3M 

744D-0 OTTIMA 

BUONA 

DYSAN 

OTTIMA 

OTTIMA 

FLEXETTE 

4201 BUONA 

DISCRETA 

NASHUA 

MD1D OTTIMA 

DISCRETA 

G.M.C. 

DISCRETA 

DISCRETA 

DATALIFE 

DISCRETA 

DTTIMA 

SOTTOMARCHE- - - 


E’ abbastanza facile testare la qualità’ magnetica di un 
dischetto: battendo il listato che segue avrete l’opportunità’ di 
controllare l’effettiva affidabilita ’ di un supporto. 

Il programma non fa altro che scrivere e leggere sul nostro 
disco effettuando una serie di passaggi blocco per blocco verificando 
se l’informazione ne risulta alterata o addirittura distrutta. Il 
nostro 1541 non e’ un drive di grandi pretese: il 99* dei supporti va 
benissimo, e l’unico giudice può’ essere il tempo. 

Ad essere fortunati, una buona marca può’ durare dai tre ai 
cinque anni, mentre delle sottomarche a malapena arrivano a sei mesi; 
l’ideale sarebbe conservare due copie per ogni supporto, una per 
l’uso piu’ o meno quotidiano, l’altra come archivio, da usare il meno 
possibile; ma anche in questo modo non e’ detto che l’informazione 
nel tempo non si degradi . 


- Cvedi listato 1) - 

Al momento della formattazione Cvedi prossimo capitolo), 
operazione indispensabile per poter usare un dischetto, la superficie 
magnetica viene divisa dal DOS del 1541 in 35 tracce concentriche, 
divise ognuna in un certo numero di settori, numeria che varia a 
seconda della posizione piu’ o meno interna della traccia, che può’ 
essere perciò’ piu’ o meno estesa. 

Le traccie dalla numero 1 alla 17 posseggono 21 settori ognuna 
Cpossiamo anche chiamarli blocchi), quelle dalla 10 alla 24 ne 
possiedono 19, quelle invece dalla 25 alla 30 ne possiedono 18, ed 
infine le traccie dalla 31 alla 35 ne hanno 17, per un totale 
complessivo di 603 blocchi, di cui disponibili 664, poiché’ la 
traccia 18 e’ riservata alla Directory ed alla BAH. 

Ogni settore o blocco e’ composto da 256 bytes, ossia cellette 
di memoria, per cui su ogni dischetto sono disponibili 169.904 bytes. 
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La Fessura circolare presente nel cartoncino permette di riconoscere 
se 11 dischetto e’ soft-sectored o hard-sectored: soft-sectored 
presenta un solo Forellino, usato dall’unita' a dischi per avere un 
inizio, da cui creare via software una serie di traccie e di blocchi; 
hard-sectored, invece, hanno una serie di Forellini che rappresentano 
già’ la divisione del dischetto in traccie predeterminate via 
hardware. 

Il 1541 usa esclusivamente dischi soft-sectored, in teoria; 
personalmente ho provato diverse volte ad usare l’altro tipo di 
supporto senza avere alcun inconveniente. 

Il contenuto del disco, come accennatosopra, e’ memorizzato 
sulla diciottesima traccia, e per caricare la lista e’ necessario 
battere : 

LOAD’’$ ” , 0 

Dando successivamente il comando LIST apparirà’ sullo schermo 
1 'intera sequenza dei programmi, preceduti dalla loro occupazione in 
blocchi e seguiti dalla sigla del tipo di File. Il numero 0 
caratterizza il tipo di periFerica utilizzata CI per il registratore, 
da 0 a 11 per il drive, 3 o 4 per la stampante). 

Sempre sulla treccia 10, nel blocco 0, risiede la BflM CBlock 
ftvailability flap) che contiene informazioni sulla disponibilità' di 
memoria sul dischetto. Nel capitolo dedicato all’editor, ed alla 
protezione e sprotezione dei programmi su questo tipo di supporto, 
analizzeremo a Fondo l’importanza di questa traccia, e come sia 
Facilmente modificabile Fino a plasmarla ai nostri desideri. 

I comandi diretti del 1541 


Uediamo un po’ come agire sul 1541 tramite il 054: innanzi 
tutto occore aprire un canale di comunicazione tra il computer e la 
periferica: il drive infatti, cosi' come la stampante e a differenza 
del registratore, e’ una periferica quasi autonoma; possiede infatti 
una propria memoria interna che diventa operativa al momento 
dell'accensione. 

Il canale per impartire ordini al 1541 si apre cosi’: 

OPEN 15,0,15 

dove il numero 0 e’ il device number, il primo 15 e’ il canale di 
comando principale ed l’altro e’ quello secondario. 

I buffers disponibili sono 5, dove due vengono usati come 
controllo. Per gli indirizzi secondari, 16 in tutto, sono 
utilizzabili tranne lo 0, l’I e il 15, che apre un canale di comando 
speciale, usato per conoscere lo status del dischetto, e per altre 
cose che vedremo in seguito. 

Come già’ abbiamo accennato, un dischetto prima di essere usato 
va iniziaiizzato, va cioè’ suddiviso dal 1541 in traccie e blocchi Co 
settori), con la creazione della BAH e la sua memorizzazione sulla 
traccia 10 Cbl.0). 
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Per inizializzare un supporto, dobbiamo naturalmente aprire un 
canale di scrittura, ed utilizzare il comando ”NEW:nome dBl 
disco,numero dell’ID”, dove il nome del disco non può’ superare i 16 
caratterri, e il numero dell’ID (identificatore del supporto), 
Formato da due cifre o lettere, impedisce che il DOS confonda le BAM 
di due diversi dischi. 

La formattazione dura esattamente 30 secondi, ed e’ possibile 
ascoltare gli scatti meccanici che caratterizzano il passaggio della 
testina da un settore all’altro. Se un disco ha già’ subito questo 
processo e l’operatore ha intenzione di riutilizzare il supporto 
cancellando tutta la memoria, e’ possibile, omettendo il numero di 
identificazione, riformattare senza attendere di nuovo il minuto e 
mezzo necessario. 

Oltre tutto, la Formattazione cancella in modo IRREUERSIBILE 
l’informazione memorizzata, mentre la riformattazione azzera 
semplicemente la BA(1, ricostruibile, in caso d’errore di operazione, 
come vedremo in seguito grazie ad una serie di comandi al DOS del 
1541 . 


Un altro comando e’ 1’INIZIALIZE, che non inizializza il disco 
(abbiamo appena visto che e’ NEW il comando da usare), ma riporta la 
testina sulla traccia 18, la traccia centrale del nostro dischetto. 
E’ un comando che non si usa molto spesso, e che non comporta 
assolutamente la scrittura sul disco: semplicemente viene memorizzato 
dal DOS il nome del disco e il numero di ID, leggendoli appunto dalla 
diciottesima traccia. 

Occorre ricordare che ogni volta che apriamo un canale, quando 
questo non ci serve piu’ occorre chiuderlo con il comando: 

CLOSE numero canale 

e questo per evitare messaggi di errorB specialmente durante 
l’esecuzione di un programma. 

Per riordinare i blocchi ed i settori di un disco, dobbiamo dare 
una UALIDATE, tramite il comando: 

PRINT#15,”U” 

e sul nostro supporto tutti i Files rimasti aperti per errore 
verranno cancellati e la BAH aggiornata. 

IMPORTANTE: non usate questo comando se avete dei file RANDOH 
sul disco! I File RANDOM, distribuiti blocco per blocco tramite 
un’allocazione predefinita, verrebbero de-allocati, e perdereste 
l’informazione contenuta. 

Per duplicare i nostri files, o concatenarli fra loro, dovremo 
invece usare il comando COPY, con una sintassi diversa a seconda di 
quello che desideriamo. 

Per duplicare, digiteremo: 

PRINT#15,"COPY :NUOUO NOtlE-UECCHIO NOME” 

Per concatenare invece: 

PRINT#15, ”C: NUOUO N.-1.UECCHI0 N.,2.UECCHI0 NOtlE 
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Per correggere i nomi già’ dati ai programmi, ci sara’ utile il 
RENANE, nella seguente Forma: 

PRINT#15,”R0:NUOUO NONE-UECCHIO NONE 1 ' 

Per cancellare invece i files indesiderati, useremo il comando 
SCRATCH cosi’: 

PRINT#15, ”50 : NOME DEL FILE* 1 

A scanso di brutte sorprese, sara’ opportuno Far seguire un 
comando UALIDATE, in modo tale da riorganizzare eFFicacemente la BAH 
del disco. 

Se poi siete cosi’ Fortunati da possedere due Co piu’3 drive, 
per Farli lavorare collegati occorrerà’ modiFicare tramite via 
soFtware o via hardware il numero di periFerica (DEUICE). Farlo via 
software e' facilissimo, basta seguire queste istruzioni: 

1) Spegnete le periFeriche lasciando accesa quella di cui volete 
modiFicare il numero di accesso 

23 Aprite un canale di comunicazione con: 

OPEN 15,8,15 

33 Digitate il seguente comando Cche vi sara’ meglio spiegato 
nel prossimo capitolo): 

PRINT#15,”N-UI”CHR$$(1193CHRS(03CHRS(2 3CHRSC9+323 CHRSC 9+64) 

4) Non spegnete piu’ la periferica; accendete invece la 

successiva e modificate il 9 con il numero desiderato (8, 10 o 11) 
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Ricapitolando quanto abbiamo detto nel precedente capitolo, ecco 
una piccola tabella che vi aiuterà’ efficacemente nel vostro lavoro 
di programmazione. 


COMANDO-FORMA-COSA PROUOCA 


NEW - PRINT#1,”N0:nome,ID” - formattazione del 

disco vergine. 

NEW - PRINT#1,”N0: nome" - rifcrmatta un disco 

non vergine. 

INIZIALISE - PRINT#1,’’I - memorizza BAM e ID 

in traccia 18 

UALIDATE - PRINT#1,”U - riorganizza la BAM e 

chiude i files aperti 

RENAME - PRI NT#1,”R: nuovo nome=vecchio nome - 

cambia nome al file 

COPY - PRINT#1,"C:nuovo nome^vecchio nome - copia 

un file 

COPY - PRINT#1,”C:nuovo f.“lo file,2o file-collega 

2 files tra loro 

SCRATCH - PRINT#1,"S:nome file - cancella il file 

dalla directory 


A questo proposito,, vi gara’ molto utile il programma qui di 
seguito proposto; riassume tutti i comandi che abbiamo fino ad ora 
incontrato, e vi permetterà’ di prendere un po’ piu’ di confidenza 
con il vostro drive, senza paura di sbagliare. 

- listato n. 2 - utility disk - 

Nel digitare il listato, incontrerete tutti i comandi diretti 
che fino ad ora hanno occupato un posto rilevante nella nostra 
conversazione. 

Dovrete riconoscere quanto sia facile usarli senza per questo 
sentirsi imbarazzati; basterà’ comunque un po’ di pratica per 
rendervi tutto piu’ pratico, e perche* no, divertente. 

I comandi di servizio 


BLOCK-READ 

Questo comando va a leggere un blocco in uno dei buffer della 
memoria; per la coretta esecuzione, occorre aprire il canale di 
comando, ed un canale ad accesso diretto; le istruzioni sono le 
seguenti : 
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100 OPEN 1S,B,15 
110 DPEN 2,8,4,”#” 

120 INPUT "TRACCIA”j T 
130 INPUT "SETTORE”; S 
140 PRINT#15, ”B-R:”4;0;T;S 

dove quest’ultima riga trasferisce un blocco di dati al buffer. 

150 GET#2, CS 

160 IF ST-0 THEN PRINT C$;:GOTO 150 
170 CLOSE 2: CLOSE 15 

Tutti i parametri occorrenti a qest’istruzione devono essere 
separati dal punto e virgola. Nel momento in cui il blocco e’ stato 
trasferito in un buffer, usiamo l’istruzione INPUT# o GET# per 
estrarli . 

E’ preferibile quest'ultima quando si e’ incerti sulla quantità’ 
di dati da caricare, perche’ e’ molto facile superare il massimo 
degli B0 bytes che caratterizza le possibilità’ di gestione 
dell’informazione da parte dell’istruzione INPUT# CGET#, invece, 
legge un byte alla volta). 


CLOCK-ALLOCATE 

La BAM, ogni volta che viene salvato un file sul disco, viene 
modificata e salvata in trccia 18; questo comando ha lo specifico 
compito di indicare se nella BAH esiste un blocco che sta per essere 
usato, e che contiene già’ delle informazioni. 

In poche parole, usiamo l’istruzione BLOCK-ALLOCATE per 
controllare, prima di scrivere sul blocco di una trccia, se in quel 
blocco esistono già’ dei dati, che andrebbero persi. In caso questo 
blocco risulti impegnato dalla BAH, verrà’ visualizzato un messaggio 
contenente il sucessivo blocco disponibile. 

Ila ecco una piccola routine: 

100 OPEN 15,8,15 
110 INPUT"TRACCIA ; ”;TR 
120 INPUT”SETTORE :”;SE 
130 PRINT#15, ”B—A:”0;TR;SE 
140 INPUT#15, E, ELI, EH$, T, 5 
150 PRINT E,EM$,T,5 
160 CLOSE 15 
170 END 

Il messaggio sara ' un ”0K” in caso il blocco risulti 
dìsponibile . 


BLOCK-URITE 

Seguendo la logica di programmazione, eccoci ad osservare il 
comando di scrittura su disco, che e’ sempre meglio controllare PRIMA 
di scrivere se il blocco e’ disponibile con una BLOCK-ALLOCATE. 
Aggiungiamo quindi alla routine precedente le seguenti linee di 
programma : 
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150 IF Et1S-”0K" THEN 180 
160 TR-T : SE-S 

170 IF TR-0 AND SE-0 THEN PRINT "DISCO PIENO" 

: GOTO 850 

180 PRINT"TRACCIA TR,"SETTORE :”; SE 

130 OPEN 8,8,4, 

800 INPUT C$ 

810 IF C$-”*” THEN 840: REM FINE INSER. DATI 
880 PRINT#8,CS 
830 GOTO 800 

840 PRINT#15, "B-U) : ”4 ; 0 ; TR ; SE 
850 CLOSE 8 :CLOSE 15 

BLOCK-EXECUTE 

Questo comando carica un blocco del supporto magnetico 
contenente una routine in linguaggio macchina, Facendola eseguire 
Fino a trovare un’istruzione RTS. 

PRINT#15,"B-E:”15;B; 1 ; 4 

BUFFER-POINTER 

Se ci occorre leggere un byte di un blocco che non sia il primo, 
invece di creare un LOOP di lettura per arrivare a quel byte, 
possiamo "puntare" tramite questo comanda, direttamente al byte 
desiderato : 

PRINT#15, "B-P:”ind.sec.;n.byte 

Ad esempio, per puntare al 18o byte di un blocco, digiteremo: 
PRINT#15,"B-P: "4; 18 
BLOCKS-FREE 

Questo comando rende disponibile qualsiasi blocco del dischetto, 
chiedendo alla BAH di contrassegnarlo come disponibile. E’ chiaro che 
e’ un comando abbastanza pericoloso da usare, se non si ha un po’ di 
dimestichezza con la gestione dell ’ inFormazione su disco. 

La Forma e' la seguente: 

100 DPEN 15,8,15 
110 INPUT"TRACCIA :”;T 
180 INPUT"SETTORE :”;S 
130 PRINT#15, ”B-F:’’0;T;S 
140 CLOSE 15 
150 END 

Ecco un listato che vi permetterà’ di pulire il disco dai Files 
indesiderati, senza rischiare di rovinare la rimanente inFormazione. 

- listato n. 3 - pulizia disco - 
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I Comandi alla Memoria-Disco 


Come e’ chiaramente visibile dalla Foto, il drive 1541 dispone 
di uh micro-processore 6502, simile al B510 del C~64, che ha una RAM 
di 2K e un DOS contenuto su due ROM. 

Abbiamo già’ visto come parte di questa memoria venga utilizzata 
internamente, per il controllo dela BAM o le operazioni sui files. 
Un’altra perte di questa memoria e’ riservata ad operazioni 
particolari: dobbiamo tener presente che se vogliamo scrivere un 
programma in linguaggio macchina in quelle aree di memoria, abbiamo a 
disposizione cinque pagine di memoria, di 256 bytes ciascuna. 

E’ sicuramente piu’ affidabile utilizzare i primi 4 buffer di 
memoria, che nel caso non abbiate già’ aperto canali di 
memorizzazione, sono disponibili e non creano problemi al DOS Ccosa 
che può’ accadere nel quinto buffer). 

I comandi che tratteremo di seguito sono di esclusivo utilizzo 
da parte di persone che hanno già’ avuto a che fare con lo studio, di 
DOS o che abbiano una certa dimestichezza con il linguaggio macchina. 

MEMORY-WRITE 


Corrisponde al comando PQKE del normale BASIC, con la differenza 
che MEMORY-URITE può’ trasferire nella memoria del 1541 fino a 344 
caratteri, tutti codificati tramite il Codice ASCII. 

Ha delle limitazioni Ccome tutti questi comandi) perche’ e’ 
solamente un’estensione del linguaggio macchina. Per questo motiva 
dovremo indicare le locazioni di indirizzo tramite il codice 
esadecimale, digitando il byte basso e quello alto. 


OPEN 15,B,15 

PRINT#15, ”M-W”CHRS(00)CHRSC03)CHR$C1)CHR$C250) 
CLOSE 15 — — 

TT -ft f 

byte byte valore 

basso alto desiderato 


In questo modo caricheremo il valore 250 nella locazione di 
memoria n.768 decimale, corrispondente a $0300 in esadecimale. 


MEMORY-READ 


Questo comando e’ l’equivalente del comando PEEK: legge infatti 
una determinata locazione di memoria del 1541. 

La sintassi e’ simile all’istruzione precedente: 


100 QPEN 15,8,15 

110 PRINT#15, ”M-R:”CHR$C00)CHR$C03) 
120 SET# 15,CS 
130 PRINTCS 
140 CLOSE 15 
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MEtlORY-EXECUTE 


Viene usato per caricare e fare eseguire un programma in 
linguaggio macchina da parte del 1541; deve terminare con un RTS, che 
restituisce il comanda alla memoria del 064. 

La sintassi e' identica a quella appena vista: 

100 OPEN 15,8,15 

110 PRINT#15, "M-E:”CHR$C00)CHR$(03) 

120 CLOSE 15 

Un’ultima raccomandazione: queste ultime tre istruzioni vanno 
digitate SOLO nella forma abbreviata, altrimenti otterremmo un 
messaggio di errore da parte del DOS del 1541. 

I comandi dell'utente 


Questi comandi riassumono tutti quelli appena visti e commentati, 
e presentano delle caratteristiche che li fanno preferire ai 
programmatori per la maggior versatilità’: 

U1 - BLOCK-READ 

U1 legge tutte le informazioni del blocco, compresi i due byte 
iniziali che puntano a quello successivo (COSÒ Che B~R DOfl faceva). 
E’ possibile in questo modo concatenare facilmente la lettura dei 
blocchi contenenti una medesima informazione. 

U2 - BLOCK-UIRITE 

U2 ha la medesima sintassi di B-UI, ma permette di scrivere una 
serie di dati senza chiudere il blocco. In questo modo e’ molto piu’ 
facile correggere dati già’ presenti sul disco, evitando un lavoro di 
ricerca tra i blocchi successivi interessati . 

U3 - U9 e U 

Rappresentano la funzione di M-E, saltando ad una specifica 
locazione iniziando l’esecuzione del programma (in l.m.). 

- listato n. 4 - ordin.directory - 

Ecco un listato che vi permetterà’ di ordinare alfabeticamente le 
vostre directory. Quasi tutti i comandi sinora visti vengono 
impiegati, in modo tale da facilitarvi il compito di cpire il 
funzionamento pratico di quanto abbiamo visto fino ad ora solo in 
teoria. 
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RICAPITOLANDO 


COflANDO 

SINTASSI 

BLOCK-READ 

PRINT#15,”B-R:”is;dr;t;s 

BLOCK-ALLOCATE 

PRINT#15,”B-A:”dr;t;s 

BLOCK-URITE 

PRINT#15,”B-U:”ÌS;dr : t;S 

BLOCK-EXECUTE 

PRINT#15,"B-E:”is;dr;t;s 

BUFFER-POINTER 

PRINT#15,”B-P:”is;n.byte 

BLOCK-FREE 

PRINTttlS,”B-F:”dr;t;s 

MEnORY-URITE 

PRINT#15,”N-U”CHR$Cb.b.)CHR$Cb.a.) 
CHR$Cn.b.)C HRSCdati) 

MEHORY-READ 

PRINT#15,”M-R”CHR$Cb.b;lCHR$Cb.a.) 

NEflORY-EXECUTE 

PRINT#15, ”(1-E”CHR$Cb . b . )CHR$(b . a . 1 


e i comandi dell’utente: 


U1 = BLOCK-READ 
U8 - BLOCK-UJRITE 
U3 “ Locazione $0500 
U4 - Locazione $0503 
U5 - Locazione $0506 
LI6 = Locazione $0509 
U7 - Locazione $050C 
U8 - Locazione $050F 
U9 _ Locazione $FFFA 
LI ” Routine accensione 
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( - a p i. t o I ci 


I FiI bs su disco 


3 : 


Il File caratterizza il supporto magnetico: infatti, nel momento 
in cui vogliamo salvare un programma memorizzato nel nostro computer, 
trasformiamo questo programma in un file, in una particolare sequenza 
di dati che il computer traduce n costruzioni. 

Ui sono 4 tipi di Files: i files PROGRAnnA, i CANCELLATI 
CDELete), i SEQUENZIALI, quelli riservati al commento della directory 
CUSeR), e i RELATIUI, non accessibili dal Basic U2.0 del C-64. 

Ognuno di questi files e’ caratterizzato da un numero 
esadecimale memorizzato sulla disectory, e permettono al DOS di 
riconoscerli durante la ricerca; questo numero può’ essere facilmente 
modificato per nascondere o far riapparire un file a seconda delle 
nostre esigenze. 

tla questo e’ un argomento che approfondiremo nel capitolo dedicato 
all‘Editor per il 1541. 

I listati che seguono vi permetteranno di leggere ogni tipo di 
file diverso dal PRG Cche e’ leggibile tramite il semplice 
caricamento). Particolarmente utile e’ il file di lettura per 
sequenziali: infatti e' possibile sfruttarlo in una routine di 
lettura continua da disco, per esempio nella programmazione di 
un’avventura.. In questi casi la famntasia non ha limiti. 


listato n. 5 
listato n. G 
listato n. 7. 
listato n. 8 


legge seq. 
legge rei . 
legge D.B. 
legge hdr 


I files in BASIC e in Assembly 


Occorre distinguere i programmi in due categorie: quelli che 
sono composti da istruzioni BASIC, e quelli invece che sono 
strutturati in linguaggio macchina. 

Affinché’ un programma in BASIC possa partire, digiteremo: 

LOAO"nome del prg.”,8 

RUN 

dove 8 e’ il numero della periferica. 

Il programma verrà' automaticamente memorizzato a partire dalla 
locazione esadecimale S0801, tipica dei programmi in BASIC. I 
problemi sorgono quando il file e’ in linguaggio macchina;- una 
caratteristica di questi files, infatti, e’ proprio la partenza in 
punti della memoria disparati, variabili dalla locazione S03FD fino 
alla fine della memoria disponibile. 

Prima di tutto, il comando di caricamento sara ' : 
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LOAD”nome del prg.”,B,l 


dove il numero 1 consente la memorizzazione a partire dalla locazione 
originale del programma. 

Battere il comando RUN darebbe un errore di sintassi, in quanto 
non c’e’ niente alle locazioni di partenza del BASIC. Dobbiamo per 
Forza di cose conoscere la locazione di partenza del prg. in 
linguaggio macchina, per poi digitare: 

SYS locaz.iniz.decimale 

Nella memoria del C-64 c’e’ una porzione di memoria dedicata al 
linguaggio macchina, che il piu’ delle volte viene utilizzata come 
sede di routine di ordinamento o di ricerca dati: in esadecimale, a 
partire da SC000 in poi, in decimale dalla locazione 49152. Di 
conseguenza, se un programma in l.m. e’ memorizzato in quella zona, 
basterà’ digitare da tastiera o da programma: 

SYS 4SI52 

Ma torniamo ai vari tipi di files: sono riconducibili a tre. 

Il primo, file programma, di cui abbiammo già’ parlato, ha la 
sintassi di apertura e di chiusura automatica, poiché’ e’ il DOS del 
1541 che compie tutte le procedure necessarie. 

Il seconda, File sequenziale, utilizzabile solo per la 
memorizzazioni di dati, ha già’ bisogno di una serie di comandi di 
apertura e di chiusura, e dipende sempre da un programma. 

Il terzo, anch’esso usato per la gestione di dati, File ad 
accesso casuale CRANDOM), ha la caratteristica di non occupare la 
memoria del computer, permettendo una gestione analitica 
dell’informazione, riducendo anche i tempi d’attesa 
nell’elaborazione; purtroppo ha una serie di caratteristiche 
istruzioni che se non usate al meglio, rischiano di invalidare il 
nostro lavoro di digitazione. 

Come sopra accennato, esistono altri due tipi di files, i 
relativi e quelli dedicati al commento dell’utente CUSeR), ma non ci 
interessano, almeno per il momento. 

I Files sequenziali 


L’istruzione da usare e’ la seguente: 

OPEN 2,9,4, ”0: NOME FILE,SEQ,UI” 
per aprire un file in scrittura, mentre useremo: 

OPEN 2,9,4,”0:NOME FILE,SEQ,R” 

per aprirlo in lettura C”U” e’ l’abbreviazione di URITE, scrivere, e 
”R” l’abbreviazione di READ, leggere). La sintassi dell’apertura dei 
canali già’ la conosciamo, e non ci dilungheremo di nuovo. 

Come per i File programma, ci può’ capitare di voler riscrivere 
o rimpiazzare un file sequenziale già’ presente sul dischetto; 
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basterà’ che aggiungiamo il simbolo ”0” al nome del file facendogli 
precedere il numero zero. 

Nel caso il file non esista sul disco, il DOS aprirà’ 
normalmente il file ignorando il simbolo aggiuntiva. 

Una caratteristica spesso presente nei programmi gestionali in 
commercio e’ rappresentata dall’uso di stringhe per la creazione di 
files. Occorrerà’ pero’ ricordarsi che per concatenare il comando di 
apertura di canale con la stringa tramite il simbolo Il comando 

OPEN, infatti, deve essere un’unica stringa. 

La gestione di un file da parte del 1541 avviene nel modo 
seguente: esistono 5 buffer disponibili, come abbiamo già ’ visto, ed 
ognuno di questi buffer rappresenta un canale di passaggio per 
l’informazione. Quest’ultima, infatti, viene dapprima trasferita nel 
buffer, fino al suo riempimento, e poi dal buffer al disco; 
l’operazione viene completata dalla chiusura del file, che deve 
avvenire puntualmente, per evitare brutte sorprese. 

I file ad accesso casuale (RAND0N3 


Utilizzando il comando OPEN, e’ possibile utilizzare un 
dischetto memorizzando i dati blocco per blocco, trasferendo 
l’informazione dai buffer disponibili (4 su 83 al supporto magnetico. 

Per evitare un errore di sistema, e’ sconsigliabile aprire piu’ 
di 4 canali per volta. 

Abbiamo già’ visto come si utilizzano i comandi del DOS 2.6 per 
organizzare la scrittura e la lettura di dati; il listato che segue 
non e’ altro che la pratica applicazione di quanto finora appresa. 


listato n. 9 - archivio random 





CZ Fa p i t o 1 a 


•i : 


Gl i 


errari - - 


Per gli.appassionati del C“64 che possiedono già’ da qualche 
tempo il drive, questo capitolo ha l’aria di essere uno dei 
piu’interessanti . 

Parleremo di errori: "Errare humanum est" diceva un celebre 
luogo comune romano, e gli errori hanno infatti sempre accompagnato 
1'attività’ umana, A causa di sbagli, inavvertenze, chieramente non 
volute, e’ possibile, anche nel campo informatico, commettere errori 
imperdonabili, capaci di compromettere un lungo lavoro di 
archiviazione, o di programmazione. Cancellare per sbaglio un file da 
un disco e’ capitato a tutti, ma non tutti sono in grado di far 
"resuscitare” il file modificando l’informazione direttamente sul 
dischetto. 


- listato n.10 - recupera files - 

Questo listata vi permetterà’, senza tecniche abbastanza 
complicate Cche affronteremo nelcapi-'tolo dedicato all'Editori di 
recuperare i filB cancellati dal vostro disco-dati, o di controllare 
ildisco prestatavi da un amico desideroso di nascondervi qualcosa... 
L’importante e’ che in questo caso voi non scriviate nulla sul disco, 
in modo tale da non comprometterne il contenuto. In pratica, quando 
diamo il comando SCRATCH di un file, il DOS non fa altro che 
cancellare i primi due bytes di riconoscimento del file, rendendo 
disponibili i blocchi da lui occupati. Con 1'Editor saremo in grado 
di riscrivere quei due bytes e di riportare alla luce della directory 
il programma cancellato. 

Per i-1 momento, pero', utilizzeremo questo programma, che tra 
le altre cose ha il pregio di non sbagliare ed evita un ulteriore 
peggioramento dello stato del disco, specialmente a chi non e’ 
avvezzo a queste cose. 

Gli errori su disco 


Dopo aver parlato degli errori umani, eccoci a parlare di quelli 
computerizzati: ebbene, sembra impossibile, ma anche il nostro drive 
può’ sbagliare, e gli errori vengano trascritti fedelmente sul 
supporto magnetico! 

Il DOS del 1541 possiede una serie dimessaggi di errore che 
avvertono l’operatore dell’eventuale presenza di anomalie, sul disco 
o nella memoria del drive. 

Nel manuale che accompagna il lettore di dischi, troviamo la 
tabella completa, che ci interessa solo in parte, poiché' tratteremo 
solo di alcuni di questi messaggi. 

Uno dei problemi che da sempre hanno assillato i programmatori, 
e’ stato l’abitudine abbastanza screanzata di alcuni appassionati di 
copiare il software altrui, magari frutto di giorni o mesi di duro 
lavoro. Questi programmatori hanno pensato bene di proteggere in 
qualche modo il proprio lavoro, sfruttando le caratteristiche del DOS 
del 1541. 
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L’errore su disco, letto in un ' certo punto del programma, 
rappresenta una delle protezioni piu’ usata. 

Un disco formattato dal 1541 contiene, abbiamo detto, 6B3 
blocchi, dove ogni blocco, ed ogni settore, nel suo header ha una 
serie di bytes che lo rendono riconoscibile e classificabile nel 
momento della lettura o della scrittura. 

Quando noi salviamo dei dati su un supporto, e in seguito siamo 
in grado di rileggerli, possiamo dire di essere di fronte ad un 
dischetto efficiente, che il DOS non ha problemi nella sua gestione. 
Nel caso qualcosa non funzionasse Cad es. il supporto viene a 
contatto con una superficie metallica, o si sporca di polvere, o 
viene unta la parte magnetica dal sudore delle nostre dita), invece 
di leggere l’informazione che era presente, il DOS ci visualizza un 
messaggio d’errore, essendo impossibilitato ad eseguire il nostro 
ordine. 

Molti programmatori hanno pensato bene di sfruttare questa 
caratteristica: un errore viene provocato sul disco, chiaramente dove 
non c'e’ informazione, ed il programma va a testarlo, prima di 
eseguire un certo passaggio; se l’errore non c’e’ il programma non 
funziona correttamente. 

Per compiere questa operazione, non occorre nulla di speciale; 
tramite delle routine software e’ possibile simulare una serie di 
errori che possono essere comodamente testati in qualsiasi punto del 
programma. 

Fino a tutto il 19B4, sembrava che nessun operatore Fosse in 
grado di duplicare un dischetto protetto in tal modo, ma in seguito 
ci si e’ accorti di quanto fosse facile riprodurre gli errori con 
poche istruzioni in linguaggio macchina. 

Ma come si comporta il drive quando incontra un messaggio 
simile? 

Nel momento in cui la testina si posiziona su un blocco con 
l'header contenente un errore, il led luminoso comincia a pulsare, 
mentre la testina va a battere contro il fermo che stabilisce 
l'inizio della traccia 1 Ce’ lo stesso rumore che si sente all’inizio 
della formattazione). E’ inutile dire quanto sia dannosa una 
sollecitazione del genere, soprattutto pensando che vi sono programmi 
che ad ogni passaggio testano un errore e rovinano inutilmente 
l’allineamento della testina. 

Il DOS emette un messaggio di errore che letto da un’appropriata 
routine stabilisce se il codice e’ quello giusto o no. In caso non vi 
sia un errore Cla testina non fara’ rumore posizionandosi sul blocco 
prescelto) il programma e’ in grado di bloccarsi, di rovinare 
l’informazione sul disco, di mandare al diavolo l’operatore incauto 
resettando il sistema. 

Fino a poco tempo fa era considerato un metodo efficace Ce per 
molti lo e’ ancora), ma in effetti proteggeva solamente il programma 
dal 1 ’esserecopiato, e non dall’essere sprotetto. 

Ma vediamo quali sono gli errori, ed i messaggi che il DOS invia 
al computer quando li incontra. 


I messaggi d’errore 


Consultando la Guida per l’utente che accompagna il nostro 1541, 
ecco la nostra tabella con tutti gli errori segnalabili dal DOS 2.6. 

ERRORE SIGNIFICATO 


0 - Tutto a posto, non vi sono errori. 

1 - File cancellato Cdopo uno SCRATCH) 

2/19 - Numeri non utilizzati dal DOS. 

20 - Manca l’intestazione del blocco (header). 

21 - Errore di sincronismo (Formattazione errata) 

22 - Assenza di dati dal blocco. 

23 - Errore di controllo dei dati. 

24 - Errore di codifica del byte. 

25 - Errore di scrittura verificato. 

26 - Scrittura con protezione inserita. 

27 - Errore di controllo nell’intestazione. 

26 - Estensione dei dati nel blocco successiva. 

29 - Non c’e’ coincidenza nell'ID. 

30 - Errore di sintassi di un comando. 

31 - Invalidità’ di comando. 

32 - Lunghezza eccessiva linea di comando. 

33 - Invalidità’ nome di un File. 

34 - Manca il nome del File. 

39 - File non trvato. 

50 - Record non presente. 

51 - Overflou) su di un record. 

52 - File troppo grande. 

60 - File aperto in scrittura. 

61 - File non aperto. 

63 - File già’ esistente. 

64 - Manca verifica per il tipo di File. 

65 - Blocco non disponibile. 

66 - Traccia o settore non permessa. 

67 - Traccia o settore non permesso dal sistema. 
70 - Non vi sono canali disponibili. 

72 - Directory o disco completo (pieno). 

73 - DOS incompatibile in scrittura. 

•74 - Unita’ non pronta (8050). 


Gli errori che realmente ci interessano, perche’ simulabili 
sulla superficie magnetica di un dischetto, sono solo sei, ed ora li 
esamineremo uno ad uno per capire come sono e come possono 
verificarsi. 

20 : READ ERROR 

Manca l’intestazione del blocco: il controllore cerca il blocco 
dei dati, ma non lo trova, per un errato indirizzo del settore o per 
la distruzione del blocco dei dati. 
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21 : READ ERROR 


Errore di sincronismo, dovuto ad un’errata formattazione del 
dischetto. E’ ottenibile da un drive disallineato, che non formatta 
completamente il supporto, lasciando senza sincronismo o la traccia 1 
o la traccia 35 Cle traccie estreme del disco). Si può’ ottenere 
anche aprendo lo sportellino del drive durante la formattazione di un 
disco. 

22 : READ ERROR 

Assenza di dati dal blocco, o errore di dati in scrittura. Uiene 
comandato al controllore di andare in un settore b traccia sbagliati. 

23 : READ ERROR 

Errore di controllo nella lettura dei dati: indica che i dati 
hanno subito una deformazione CanchB per cause fisiche Bsterne). Può’ 
essere causato anche da un’alimentazione non perfettamente isolata. 

27 : READ ERROR 

Errore di controllo nell’intestazione. Il blocco dati richiesto 
presenta un errore nel suo hBader, che non può’ essere letto dalla 
memoria del DOS. 

29 : DISK ID flISMATCH 

Anche questo b’ un errore di formattazione, o di cattiva 
inizializzazione. Si verifica soprattutto quando inseriamo un 
dischetto non inizializzato Cil DOS non riconosce l'ID) e diamo un 
comando di lettura. 


-listato n. 11- trova errori- - - 

Questo piccola programma e’in grado di analizzare blocco per 
blocco tutto il disco per segnalarci quanti e quali errori vi siano 
presenti. 

Utilissimo per testare i dischi di dati, permette in un certo 
modo, di controllare se il nostro drive ha o meno difficolta’ di 
lettura, specie nelle traccie esterne. I comandi usati sono già’ 
stati commentati, e li conosciamo già’; sara’ bene prendere una certa 
dimestichezza con essi perche’ saranno i piu’ usati nella gestione 
del controllo da parte dell’operatore, dei dati presenti sul 
dischetto. 

- listato n. 12- creatore di errori - 

Capiremo piu’ a fondo l’utilità’ di questo listato nel corso del 
prossimo capitolo. Per ora ci limiteremo a digitarlo, badando bene di 
non provarlo su un disco con dei files interessanti. 

Sembrerebbe un paradosso: il DOS ci manda dei messaggi per 
avvertirci che sul disco vi sono degli errori, e noi ne siamo 
contenti ! ! ! 
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Nel capitolo precedente abbiamo accennato all'uso degli errori 
d’informazione come una protezione del software. Ma cos’e' una 
protezione ? 

Fino ad oggi abbiamo assistito ad una gara incredibile tra 
protettori e sprotettori: ad un ritmo formidabile sono nate 
generazioni nuove di programmi e nuove tecniche di sprotezione. E’ 
impossibile avere la soluzione finale di tutto ciò’: pobabilmente 
l’ultima risposta per quanto riguarda la duplicazione di supporti 
magnetici verrà’ da un "copiatore stupido”, che non avra’ la pretesa 
di interpretare l’informazione, ma si limiterà’ a copiare 
magneticamente il dischetto. 

Ma neanche questa dovrebbe essere l'ultima soluzione: vedremo, 
infatti, come sia possibile modificare il DOS per impedire una 
corretta lettura dell’informazione, tramite la creazione di mezze 
traccie e di codifiche particolari dei bgtes su disco. 

Universalmente, e’ possibile stabilire una classifica di livelli 
di protezione, e questo per aiutarci a capire le nostre possibilità' 
attuali. 

10 LIUELLO 

Programma completamente sprotetto, che può’ essere salvato 
tramite il LOAD ed un successivo SAUE, contenente solo Basic, o 
linguaggio macchina codificato in Basic. Sebbene questo livello possa 
considerarsi "non protetto”, occorre tener conto di alcune cose: se 

11 programma e’ in Basic, e' possìbile che si concateni con altri 
files, o che utilizzi file sequenziali o archivi di dati che non sono 
riproducibili tramite i due comandi sopra citati. Inoltre, il comando 
SAUE e’ valido solo per il Basic, e non tiene conto di un’eventuale 
parte del programma in Assembler. 

In ogni caso, con questo tipo di programma, un qualsiasi 
copy-files ha successo, anche se il modo piu’ sicuro sarebbe un 
riproduttore di dati regolato dalla BAH. 

Bo LIUELLO 


Fornito di un autostart e di un comando disabilitante il tasto 
EUN STOP. Non e’ possibile caricarlo e salvarlo direttamente, ma 
occorre, usando un monitor, caricarlo in una locazione differente e 
riprodurlo. L’utente non e’ in grado di bloccare il programma durante 
il sue funzionamento, e per vedere come e’ strutturato il programma 
occorre, con un po’ di fantasia, introdurre dati errati, o richiedere 
informazioni da periferiche staccate in modo tale che l’errore 
provocato possa riportare il controllo all’operatore. Solitamente un 
programma di questo genere prevede molte situazioni di errore, e lo 
scopo ultimo e’ quello di non modificare il listato, e non quello di 
essere copiato. 

La copia e’ facilmente eseguibile da un copy-files, ed eventuali 
modifiche sono apportabili tramite un monitor Cche ad esempio 
cancelli la parte iniziale del programma che provoca la partenza 


E3 




spontanea del programma, nell’area di memoria antistante la locazione 
$ 0001 ). 

3o LIUELLO 

Dischetto contenente errori in alcuni blocchi, che impediscono a 
copiatori normali di proseguire la copia. 

In pratica e’ una protezione creata per bloccare la copia 
completa del disco Cindispensabile con File CASUALI o RELATIUI), ed 
ha successo con i vecchi copiatori che non hanno una routine di 
controllo: incontrando un errore, infatti, cercano in tutti i modi di 
leggere ugualmente un’informazione che in realta’ non esiste. I 
copiatori piu’ evoluti, invece, saltano i blocchi "cattivi" senza 
leggerli . 

Solitamente non ci sono di routines di controllo sul tipo di 
errore incontrato. 

Ho LIUELLO 


Protezione simile alla precedente; per maggior sicurezza, viene 
testato il tipo di errore nel blocco e traccia desiderati. 

E’ il livello piu’ diffuso tra il software oggi in circolazione. 
I programmi possiedano un autostart, non si possono fermare, ed in 
piu’ controllano che ci sia un errore giusto al posto giusto. 

I messaggi d’errore sono stati elencati nel precedente capitolo, 
e quelli sfruttabili per questo tipo di protezione sono l’errore 50, 
il SI, il 22, il 23, il 27 ed il 2S. Per riprodurre dischetti di 
questo tipo si agisce in due modi: riproducendo Fedelmente l’errore o 
gli errori Cinsieme all’informazione, oppure aggirando la routine 
(solitamente in linguaggio macchina, ma noi la tratteremo in Basic) 
che controlla l’esistenza dell’errore. 

Un sistema molto usato consiste nel caricare un ”loader” che 
prima di immagazzinare i dati del programma testa l’errore. 


AUTOSTART 


I 


LOADER 


I 


TEST ERRORE 


I 


CARICA PRG 


I 


ESECUZIONE - TEST ERRORE 
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Se gli errori, o meglio i messaggi d’errore non sono quelli 
giusti, il loader può' non caricare il programma, distruggere 
l’informazione sul dischetto, resettare il sistema , ecc. ecc. 

In piu’, il loader può’ decidere quali siano i blocchi da caricare ed 
in quale ordine, risultando la BAH cancellata. Il programma verrebbe 
cosi’ caricato, mentre il loader controllerebbe se gli errori sono 
presenti, e tutto contemporaneamente. 

In pratica si avrebbe una serie di settori da caricare ed una da 
testare, ottenendo un alto livello di protezione da copiature. 

Per utilizzare questa tipo di protezione occorrono due 
programmi: il primo, un Editor, che analizzi la BAH e ci dica quali 
siano i blocchi contenenti l’informazione e quali invece siano 
disponibili per l’inserimento di errori; un secondo, un creatore di 
errori, che ci permetta di creare nel settore voluto il tipo di 
errore desiderato. Per finire, cosa piu’ importante di tutte, una 
routine"che, inserita all’interno del nostro programma Cin Basic) ci 
permetta di controllare l’esistenza dei giusti errori sul dischetto. 

Per copiare, invece, questo tipo di programmi, occorre 
utilizzare un lettore di errori, un riproduttore di supporti che non 
si fermi all’errore, un creatore di errori. Oppure, un sistema un po’ 
piu’ complicato, caricare tramite un monitor in linguaggio macchina i 
files, trovare la routine che testa il tipo di errore ed eliminarla o 
modificarla (ma questo tipo di tecnica e’ riservata a quei pochi di 
voi che si intenderanno a fondo di questo linguaggio); ne parleremo 
piu’ avanti, trattando l’uso dell'Assembler nella programmazione del 
1541. 

5o LIUELLQ 

Livello di protezione "avanzata” tramite l’uso di errori. Uiene 
alterata quella che e’ la normale procedura di formattazione del 
disco, producendo traccie extr a (alcuni arrivano fino alla traccia 
44!!!), speciali codifichB dei dati sul formato delle traccie, 
scrittura di dati sotto degli apparenti errori, la creazione, 
addirittura, di "mezze traccie” non leggibili normalmente dal DOS del 
1541. Con questo tipo di protezione, pero’, possono sorgere non pochi 
problemi di compatibilita’, che rischiano di rendere inutilizzabile 
l’informazione contenuta dal supporto. 

Sembrerebbe un’estensione del precedente livello, ma in effetti 
questo tipo di lavoro presuppone una profonda conoscenza del 
linguaggio macchina e del DOS, livello al quale sicuramente non e’ 
possibile arrivare da parte dei semplici appassionati ma che, 
nonostante tutto, possono essere copiati utilizzando dei copiatori 
già’ presenti sul mercato (come abbiamo detto prima, e’ una gara dove 
non ci sono regole o colpi proibiti, tra produttori e "copiatori”). 

Questa tipo di programma ha lo svantaggio notevole, come abbiamo 
già’ detto, di non risultare sempre leggibile su ogni drive di 
produzione Commodore; occorre anche pensare che i primi drive avevano 
la spiacevole propensione al disallineamento della testina, 
incontrando in lettura degli errori (parleremo piu’ avanti di 
disallineamento e su come agire per limitarlo). 

Per copiare questo tipo di programma occorre comportarsi come al 
livello precedente, usando pero’ delle particolari routines che vanno 
al di la’ dello scopo di questa pubblicazione. L’ideale, come sempre, 
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consisterebbe nel disassemblaggio del programma e nella sua 
correzione, ma bisogna esserne capaci. 

Bo LIVELLO 


Programmi che richiedono, per il loro funzionamento, inserimenti 
di moduli hardware, solitamente tramite l’uso di pin di Joystick o di 
cartuccie contenenti chip con memoria residente. Richiedono un 
sintetizzatore di formato, una "chiave” che permetta l’accesso 
dell’operatore al programma. 

In questo moda non si Utilizzano piu' gli errori e le routine di 
lettura, ma delle chiavi "hardware” presenti nelle porte esterne del 
064. Una protezione valida e che non penalizza assolutamente la 
velocita’ di esecuzione del programma: testare un errore richiede un 
certo tempo Ced una serie di disturbi...!, mentre testare la presenza 
di una chiave nella porta del Joystick non dura piu’ di qualche 
microsecondo, ed inserito in un programma gestionale e’ praticamente 
irrilevante. 

Parlando della presa per i Joystick, ci sono 32 poli diversi, 
che possono essere circuitati, e corrispondono a 32 diverse 
protezioni. Per utilizzare questo tipo di protezione occorre 
conoscere un po’ la meccanica degli spinotti, ed utilizzare la 
lettura della locazione 56320 per la porta n.l, e 56321 per la porta 
n .2. 

Questa piccola routine vi indicherà’ come agire sul Joystick per 
utilizzare questo ingegnoso dispositivo: 

100 PRINT PEEKC56320! : REI1 CONTROL PORT N.l 
110 FOR «-0 TO 1000 : NEXT A 
120 REfl T CICLO DI RITARDO PER LA LETTURA 
130 GOTO 100 

Per la copiatura di questi programmi occorre smontare la chiave 
hardware ed analizzarne la meccanica, tenendo pero’ presente che e’ 
possibile l’uso di schemi piu’ complicati, con la programmazione di 
ROM sulla spina, per rendere non analizzabili le risposte a 
determinati segnali inviati dal computer. I dieschetti in programmi 
di questo tipo, sono solitamente perfettamente duplicabili, o al 
limite sono del tipo "livello 4”. 

Come proteggere i nostri programmi 


Abbiamo visto i vari livelli di protezione conosciuti e 
raggiungibili. Proteggere non e’ facile, specialmente quando a 
propria disposizione non si hanno strumenti adeguati. 

A mio avviso indispensabile per una protezione che riguarda un 
programma Basic e’ un efficace compilatore quale il PET SPEED, che ha 
il difetto di non accettare alcune istruzioni, quali i richiami a 
routines in linguaggio macchina, ed il pregio di rendre il programma 
compilato inattaccabile dai famigerati de-compilatori, che già’ 
operano sul lavoro dei programmatori. 

Abbiamo parlato di routines di lettura diretta da disco: ecco un 
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listato che vi permetterà’ di scrivere e di leggere dati sul 
dischetto, evitando di informare la BAH di quanto presente sul 
supporto. Un consiglio: cercate di utilizzare le traccie esterne, per 
evitare che un eventuale inserimento di altri programmi come Files 
pregiudichi l’informazione che immagazzinerete. 

- listato n.13 - legge scrive disco - 

Nel precedente paragrafo abbiamo anche trattato del controllo da 
parte del programma della presenza di errori sul dischetto. 

Ecco la routine necessaria, avendo pero’ l’accortezza di non 
utilizzarla troppo spesso durante lo svolgimento del programma, per 
evitare spiacevoli conseguenze alla testina ed alle orecchie 
dell'operatore... 


- listato n.14 - test errore - 

Alla linea 1100, che segue alla lettura del blocco, possiamo 
mettere un’istruzione che resetti il sistema se il codice dell’errore 
non e’ quello desiderato; badate bene, pero’, a mascherare la 
locazione di reset C6473B5, poiché’ anche se il programma e’ 
compilato, tramite un monitor e’ analizzabile, ed una routine di 
questo tipo e’ facilmente localizzabile. Provate ad assegnare delle 
variabili (ad es. A=12, B=15, eco.) dove R = AxBxC+D/... in modo tale 
da mascherare efficacemente l’operazione tramite un semplice SYS E. 

Se invece non vi importa nulla della copia del vostro programma, 
e tenete di piu’ alla presenza del vostro nome sulla directory o in 
un punto preciso del dischetto (ad es. tramite un file USeR in 
traccia 185, e’ opportuno che digitiate questa routine, che andra’ a 
leggere, quando vorrete voi, l’intera directory, controllando il 
vostro nome o qualcos’altro, resettando o formattando il disco se 
qualcosa e’ stato modificato. 

- listato n.l4A- test directory - 

La maggior parte di voi si sara ’ fatta una bella risata: 
basterebbe "chiudere” il dischetto con una linguetta adesiva per 
impedire ulteriori scritture su di esso. Sta a voi impedire ciò’: il 
listato che segue va a scrivere dell’informazione sulla traccia 18 
nel settore 18 Cun settore solitamente mai usato dai titoli della 
directory!; se il risultato e’ un messaggio di errore, la routine 
avverte l’operatore che se il disco e’ protetto il programma non 
gira. Il controllo può’ essere effettuato in qualsiasi momento, ed e’ 
bene farlo sempre prima dell’apertura di un File (se il nostro e’ un 
gestionale), o prima del caricamento del programma, se e’ un gioco. 
Sta a voi decidere il resto. 

- listato n.15 - test notch - 

Ed una volta scoperto che il nostro programma e’ stato 
modificato, cosa facciamo ? 

Se abbiamo accertato che il dischetto non e’ protetto, le 
possibilità’ sono infinite. Tramite le istruzioni di scrittura 
incontrate nella prima parte del libro, siamo in grado di operare sul 
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supporto in modo tale da cancellare totalmente l’informazione. 

Possiamo anche utilizzare il programma creatore di errori per 
rendere il dischetto illeggibile, o solo per cancellare 
l’informazione conservando la directory Cche diventerebbe 
completamente inutile!. 

Se pero’ vogliamo fare gli originali, ecco un programmino da 
caricare e da far funzionare, che ugualmente cancella l’informazione, 
aggiungendo un tocco personale... 

Restando nei limiti della creanza, oppure no, sono molti i 
messaggi amichevoli da indirizzare ad un pirata del software... 

- 1 -listata n.lE - destroy 1.0- 


ESPLOSO INTERNO DRIVE 1341 
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C~ *3 p i t: ri x ri Eì : 


X copiatari 


rischiare di 
polvere può’ 
nostro amico 


Abbiamo parlato delle possibili protezioni che un programma può’ 
avere, ma dobbiamo tener conto del fatto che anche noi possiamo avere 
la necessita’ di copiare del software, sia per non 
rimanere con una copia unica (che anche un granello di 
rovinare), sia per utilizzare il software che qualche 
vuole donarci. 

La legge italiana, oscura per quanto riguarda un problema che 
ancora non e’ stato affrontato se non marginalmente, punisce coloro 
che duplicando il software, non ne denuncia la vendita, frodando il 
fisco e danneggiando lo Stato. 

Non e’ reato duplicare il software, ma venderlo senza 

autorizzazione, si’. 

I modi possibili per copiare sono principalmente due: copiare i 
singoli files, trasferendoli ad uno ad uno oppure ricopiare 

fedelmente l’intero disco, in tre passaggi. Il computer non ha 

problemi, anche se si tratta di programmi contenenti un autostart o 
in linguaggio macchina. I copiatori di files, cosi’ come quello qui 
di seguito presentato, in linguaggio macchina, utilizzano la memoria 
nel modo seguente: il copiatore non fa altro che riconfigurare la 
memoria interna del computer, caricare in una locazione diversa 

dall’originale il programma (memorizzando le locazioni originali) e 
li salva nelle stesse posizioni sul disco copia. 

Ecco come la memoria viene deformata: 


MEMORIA DEL C-64 ALL’ACCENSIONE 


E5AD. 


DEC. 

FFFF 

BK ROM KERNAL 

8b5 3b 

E000 

(CARATTERI RDM) 

4K I/O 

57344 

D000 

4K RAM (BUFFER) 

53248 

C000 

BK BASIC ROM 

43152 

A000 

BK RAM (0 CARTUCCIA) 

40350 

6000 

1BK RAM 
PROGRAMMATORE 

32758 

4000 

14K RAM 

153B4 

INDIRIZZI BASSI 

DEL SISTEMA 


0000 0000 
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□ave la memoria compresa tra D000 e C000 comprende anche: 


I/O memoria del disco 
I/O espansione CCP/M) 
CIA # 5 memorie 
CIA # 1 memoria 
Colore reg. RAM 
Memoria SIO 
Memoria UIC 


Negli indirizzi bassi del sistema, troviamo anche la MEMORIA DI 
SCHERMO, compresa tra 0400 e 0000 C1024-2048 dee.) e 1K dedicato alla 
zona di controllo con la pag. ZERO. 

La disponibilità' dell’operatore: 30 Kbytes. 

la CONFIGURAZIONE 

Questa particolare disposizione della memoria viene usata 
prevalentemente dai copiatori di files, che utilizzano routines 
facenti riferimento al KERNAL. 

FFFF - 

BK ROM KERNAL 

E000 - 

4K I/O 

D000 

4K RAM 

C000 - 

16K RAM 

8000 

16K RAM 
4000 - 

15K RAM 

0000 ’ 


DISPONIBILI 52 K 
RAM 


2a CONFIBURAZIONE 

..XJtiesta viene utilizzata da copiatori evoluti, che non avendo 
bisogno del KERNAL riescono ad ottenere quasi l’intera memoria 
dispSnibile. 
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FFFF 


E000 

□000 

C000 

0000 

4000 

0000 


BK 

RAN 

4K 

I/O 

4K 

RAN 

16K 

RAN 

16K 

RAN 

16K 

RAN 


DISPONIBILI 60 K 
RAM 


Ecco il listato in Basic di due copiatori che trasferiscono un 
programma dal nastro al disco e dal disco al nastro. Essi tengono 
conto dell’inizio del file, memorizzano l’informazione, e la 
riscrivono su un diverso supporto. 

- listato n.17 - copia n/d-\- 

- listato n.lB - copia d/n - 

Occorre ricordare che se un programma e’ su piu’ files, occorre, 
modificando il supporto, modificare anche il numero . di periferica 
usata se c’e’ una concatenazione di informazioni. 

- listato n.19 - copia-files - 


3a CONFIGURAZIONE 


Configurazione preferita dai copiatori totali di dischetti: al 
C“64 non viene richiesta alcuna operazione, ma solo di rendere 
disponibile l’intera sua memoria come recipiente di passaggio, per 
permettere il trasferimento dell’intera informazione presente su un 
disco, su un altro supporto. 

Ricordate quanti blocchi sono presenti su un disco? Sono 683, 
dove ognuno e’ formato da E56 bytes C1K ogni 4 blocchi), ed il drive 
riesce a trasportare, velocemente, tutti i dati in tre passaggi. Il 
lavoro viene svolto esclusivamente dal DOS del 1541, mentre la 
tastiera del computer viene disabilitata eviene riconosciuta solo la 
pressione di un tasto qualsiasi). 

FFFF - 

16K RAN 

C000 - 

16K RAN NENORIA DISPONIBILE 

8000 - 64 K RAN 

16K RAN 

4000 _ 

16K RAN 

0000 _ 
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Non BSistB piu’ KERNAL Cpar chi non le sspassB, e’ un insiams di 
routines utilizzabili da Basic tramite i comandi SYS), interprete 
Basic, la possibilità’ di controllare periferiche da tastiera, ecc. 

Ecco un copiatore in linguaggio macchina che si trasferisce 
interamente nel DOS del 1541, programmandolo in modo tale da 
sfruttare il C-B44 come un catino... 

- listato n.20 - copia-disco - 

E’ un copiatore "evoluto”; in caso di errore, non leggera’ 
l’informazione e continuerà’ dal blocca successivo, visualizzando 
traccia e settore interessati. 

Ancora sulla ri-configurazione 

Una delle migliori del C-64 e’ il modo in cui la sua memoria 
può’ essere ri-configurata. Abiamo visto come questo sia possibile 
dato che il C-B4 possiede B4 K di memoria compresi tra le locazioni 
0000 e FFFF. Nella prima tabella contenente la memoria del computer 
all’accensione, notiamo che vi sono delle aree di RAM sotto quelle 
utilizzate dalla RDM e dagli I/O. 

Il B510 permette al programmatore di spegnere dei banchi di 
memoria; nel casa dele aree Basic e KERNAL, possono avere al di sotto 
delle aree di RAM, ma esse possono essere soltanto lette, se la ROM 
e’ inserita. Per scrivere il contenuto di queste aree, occorre 
disinserire la ROM, e di conseguenza dovremo Fare a meno 
dell’interprete Basic. Ecco perche’ la maggior parte dei copiatori 
utilizzano l’Assembly. Usando anche l’area di I/O CInput/Output ” 
Ingresso/Uscita), il programma non deve contenere vettori di 
interruzione, non deve avere istruzioni in Basic, e non deve 
utilizzare routines KERNAL. Oltre a queste limitazioni, le 
possibilità’ di riconfigurazione della memoria del computer fanno del 
C-64 un elaboratore che e’ superiore agli altri a B o 16 bits. 
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Un ultima considerazione sui copiatori 


Molti copiatori utilizzano i sistemi sopra descritti, ma non 
vorrei che ci Fermassimo qui. La programmazione può’ essere aiutata 
da queste tecniche, e mi sembra sciocco parlarne solo in termini di 
duplicazione. D’altronde, non ci stiamo occupando di linguaggio 
macchina per la programmazione del C=4, ma del1’uti1izzo ,di routine 
programmanti il DDS del 1541. 

Non mancherà' probabilmente l’occasione di approfondire, magari 
in un’altra pubblicazione, quello che sembra un argomento a molti 
oscuro, e che invece e’ semplicemente un linguaggio Ccome il Basici 
da imparare nel modo piu’ facile che esista. 

- listato n.21 - copia errore - 


Il 1541 


Il nostro drive, come abbiamo visto, e’ un’unita’ a dischi 

■ttel1igente, dotata di un Sistema Operativo grazie ad un 
miniprocessore . 

In poche parole, una volta che abbiamo dato le istruzioni per 
operare, la memoria centrale viee ignorata, ed e’ il DOS a lavorare. 
Sono tre le operazioni eseguite dal drive contemporaneamente: 

1 - controlla il traffico dei dati tra il C=64 e se stesso. 

2 - interpreta le istruzioni e le esegue manipolando i Files, 
aprendo e chiudendo canali di comunicazione, gestendì i buffers 
d 1 sponibi1i. 

3 - esegue una serie di operazioni miranti a rendere riconoscibile 
un supporto magnetico estraneo Ccome la formattazione, scrittura e 
lettura di files, ecc. 1, chiamate dagli statunitensi 
"harduiare-or ìented”. 

Tutto ciò’ e' possibile grazie al lavoro del 6502 ed alle 
tecniche di Interrupt. Un Interrupt e' la ricezione di un comando da 
parte del 1541, ricevuta tramite un impulso su un canale aperto. 

11 DOS, automaticamente, interromperà’ Cda qui il nome) il suo 
lavoro, registrerà’ il comando, finisce il lavoro e poi si predispone 
ad accogliere istruzioni. 

L’esecuzione e’ quella logica, e si limita ad aprire e chiudere 
canali. Le altre operazioni, invece, hanno bisogno dell’esclusivo 
lavoro del processore del drive. 

Un temporizzatore interrompe ogni 14 millisecondi 1'esecuzione dei 
normali programmi, e la comunicazione tra due programmi diversi e’ 
garantita da una comune area di memoria. 
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Le porte di I/O 


01A - Uersatile Interface Adapters 


DIA 6562 1 

Porta seriale BUS 

$1800 

Porta B 

$1001 

Porta A 

$1802 

DIREZIONE DATI B 

$1803 

DIREZIONE DATI A 

PB 0 

DATI IN ENTRATA 

PB 1 

DATI IN USCITA 

PB 2 

CLOCK INSERITO 

PB 3 

CLOCK DISINSERITO 

PB 4 

ATN A 

PB 5,6 

INDIRIZZO DEUICE 

CB 2 

ATN IN 


DIA 6522 2 

Porta motore e Controllo 



Lettura e Scrittura Testina 

*ÌC 00 

Gotrollo Porta B 

$1C01 

Dati in lettura/scrittura 



testina per porta A 

$1C02 

DIREZIONE DATI A 

S1C03 

DIREZIONE DATI B 

PB 

0 

STP ~ I CStepper motor) 

PB 

1 

STP - 0 Cmov. test.) 

PB 

2 

tITR (pilotaggio motore) 

PB 

3 

ACT (accensione LED) 

PB 

4 

UPS SWITCH 



(protezione scrittura) 

PE 

7 

SYNC (sincronizzazione) 

CA 

1 

Byte pronto 

CA 

2 

SOE 


La mappa di memoria 

Ecco una mappa della memoria (semplificata) del 1541, e qui di 
seguito vedremo in dettaglio le cose piu' interessanti riguardo ad 
essa. 

La ROM residente e’ di 16 K, ed e ’ provvista di un unico sistema 
operativo (DOS- Disk Operating System) dove la maggior parte delle 
funzioni e’ realizzata tramite software; grazie ciò’ si e’ potuto 
progettare un tipo di hardware relativamente costoso con un software 
a prezzi decisamente accessibili. Lo scopo della Commodore, infatti, 
e'stato quello di produrre un drive poco costoso abbisognante di un 
software il piu’ eclettico possibile. 

Dolendo esaminare l’intero DOS, occorre tramite un drive-monitor 
che carichi l’intera memoria e la trasferisca nel computer Cuna 
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successiva istruzione permetterà’ la stampa dell'intere 
disassemblato). Avremmo potuto pubblicare anche noi pagine e pagine 
di linguaggio macchina (perche’ 16 K di memoria sono molti), ma per 
lo maggior parte di voi sarebbe stato inutile. 

Come utenti, e’ possibile utilizzare la ROH tramite dei salti 
(JSR) nel suo interno, mentre coloro che sanno qualcosa di linguaggio 
macchina e di ri-configurazione di memoria hanno la possibilità’ di 
bruciare (cioè’ di escludere) un altro set di ROH con qualche 
paricolae routine modificata, e tutto ciò’ per poter scrivere in modo 
anormale impedendo la lettura da parte dei normalo copiatori . 

Riuscendo a far ciò’ senza interferire nei normali schemi, 
potremo ottenere un’ottima protezione, dato che l’unica contro-misura 
consisterebbe nella scrittura di una routine che riproduca il nostro 
schema, inserita nella RAM non usata del drive, che possa essere in 
grado di scrivere e di leggere allo stesso modo. 

ria il maggior problema che si incontra nella stesura di questo 
tipo di routines e’ l’esiguo spazia di RAM disponibile. L’area di ROM 
compresa da $C00 e $F24C viene utilizzata maggiormente per manipolare 
dati, interpretarli, e cosi’ via. 

Meglio quindi non modificarla. La ROM compresa tra $F2HD e SFFF 
contiene le routines di controllo dell'hardware; esse controllano 
cose come la selezione di blocchi e di traccie, la lettura e la 
scrittura, e cosi’ via. Gli inserimenti di errori possono essere 
fatti tramite questa zona, o modificandola. 

La RAM utilizzabile dall’operatore ha un’estensione di 5 K: 
abbiamo una pagina zero (richiesta dal 6502) da $0000 a $00FF, due 
pagine da $0100 a $0EFF sono riservate ai puntatori addizionali, 
accodamenti ed altro. Nell’area compresa tra $0250 e $02B0 vi sono i 
vettori della RAM, e si gestisce il trattamento dei files. Da $02bl a 
$02FF viene gestita l’informazione in uscita, come messaggi di errore 
e visualizzazione della directory; tutta l’area di RAM rimanente e’ 
divisa in buffers di 256 bytes ciascuna. 

Ci sono 5 buffers che caricano i dati dal disco e quelli ad esso 
destinati; vengono posizionati secondo le esigenze del DOS. Proprio 
in questa zona vengono memorizzati i programmi dell’utente, dove i 
primi 18 bytes del buffer ($0500) vengono solitamente usati per 
saltare alla routine inserita dal programmatore. 

L’area piu’ importante nella RAM e’ quella compresa tra le 
locazioni $0000 e $0005, e tra $0006 e $0012, dove si provvede al 
codice dei lavori eseguiti ed alla memorizzazione degli headers 
(traccia e blocco) del lavoro in codice. 

Dopo la ROM e la RAM, parliamo di due Uersatile Interface 
Adapters (UIA), interpretati dalla CPU come locazioni di memoria. Lo 
schema ve l’ho già’ presentato precedentemente. 

Un UIA occupa 16 locazioni di memoria: il primo UIA e’ compreso 
tra $1800 e $1B0F; controlla il bus seriale agisce da tramite dal bus 
interno verso l’esterno. Il secondo, invece, racchiuso tra $1C00 e 
$1C0F ha come compito il controllo dell'hardware: e’ infatti 
collegato con il circuito di azionamento del motore, la verifica 
della cellula della linguetta adesiva (notch) ed il controllo della 
logica di scrittura e lettura per le testine. I segnali hardware sono 
trasmessi direttamente dal buds interno dei dati del drive. Inoltre, 
come descritto nelle tabelle sopra descritte, i UIA dispongono di 
temporizzatori indirizzabili (CLOCK) a seconda delle esigenza del 
DOS. 
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Altra caratteristica importante e’ la possibilità’ di 
"specchiare” la memoria CMIRRORING): le parti componenti la memoria 
possono essere viste in diverse posizioni all’interno della mappa. 

Ecco un listato, in due parti, una Basic che funge da 
caricatore, ed un’altra in linguaggio macchina che si trasferisce nel 
DOS, che ci permetterà’ di modificarlo in modo tale da formattare un 
disco in meta’ tempo! 

- listato n. 22 - formatta veloce - 

La Memoria-Disco Ci principali indirizzi) 


0 

S00 

Codice comando BUFFER 0 

1 

S01 

Codice comando BUFFER 1 

2 

$02 

Cadice comando BUFFER 2 

3 

$03 

Codice comando BUFFER 3 

4 

$04 

Codice comando BUFFER 4 

6 

$06-07 

Traccia e Blocco BUFFER 0 

8 

$0B—09 

Traccia e Blocco BUFFER 1 

10 

$0A-0B 

Traccia e Blocco BUFFER 2 

12 

$0D-0D 

Traccia e Blocco BUFFER 3 

14 

$0E-0F 

Traccia e Blocco BUFFER 4 

18 

$12-13 

Numero ID per drive 0 

20 

$15-15 

Numero ID per drive 1 

22 

$16-17 

ID 

32 

$20-21 

FLAG movimento testina 

48 

$30-31 

Puntatore del BUFFER per il 
controllore Disco 

57 

$39 

Costante 0, Inizio dati dell' 
Header del blocca 

58 

$3A 

Parità’ dati BUFFER 

61 

$3D 

Numero Drive per controllore 

63 

$3F 

Numero BUFFER per controllore 

67 

$43 

Numero blocchi per traccia 
durante la Formattazione 

71 

$47 

Costante 7 , inizio dati dell 
Header del blocco 

73 

$49 

Puntatore Stack 

74 

$4A 

Conta passi della testina 

81 

$51 

N. traccia durante la formatt 

105 

$69 

Ampiezza del blocco 

106 

$6A 

Numero tentativi lettura 

111 

$6F-70 

Puntatore indirizzo per i 
comandi B e M. 

113 

$77 

N. di periferica CLISTEN) 

120 

$78 

N. di periferica CTALK) 

121 

$79 

Flag CLISTEN) 

122 

$7A 

Flag CTALK) 

124 

$70 

Flag per ATN Crceve dati dal 
BUS seriale) 

125 

$7D 

Flag per EOI dal BUS seriale 

127 

$80 

Numero della periferica 

128 

$80 

Numero della traccia 

129 

$81 

Numero del blocco 

130 

$82 

Numero del canale aperto 
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131 

SB3 

Indirizzo secondario 

138 

$84 

Indirizzo secondario 

133 

SB5 

Byte di dati 

139 

S8B-8D 

Area di immagazzinamento div. 

14B 

$94-95 

Puntatore attuale BUFFER 

153 

$99-9A 

Indirizzo del BUFFER 0 C$300) 

155 

S9B-9C 

Indirizzo del BUFFER 1 C$400) 

157 

S9D-9E 

Indirizzo del BUFFER 8 C$500) 

159 

$9F-A0 

Indirizzo del BUFFER 3 C$600) 

161 

$A1-A8 

Indirizzo del BUFFER 4 C$700) 

163 

$A3~A4 

Puntatore BUFFER Input $800 

165 

$A5-A6 

Puntatore BUFFER per imessaggi 
di errore 

181 

SB5-BA 

Record basso, Blocco basso 

187 

SBB-C0 

Record alto, Blocco alto 

193 

SC1-C6 

Puntatore creazione File relat. 

199 

SC7-CC 

Lunghezza del record CF.rel.) 

818 

$□4 

Puntatore record file relativa 

813 

$D5 

Numero di blocchi interessati 

814 

SD6 

Puntatore blocco dati 

815 

$D7 

Puntatore record del File rei. 

831 

$E7 

Tipo di File 

849 

$F9 

Numero del BUFFER 

856-385 

$100-145 

Area 9TACK 

518-558 

$800-888 

BUFFER stringa del comando 

586 

$84A 

Tipo di File 

600 

$858 

Lunghezza del record 

601 

$859 

Traccia del settore interessato 

608 

$85A 

Settore interessato 

688 

$874 

Lunghezza linea di Input 

638 

$87B 

Numero dei nomi di Files 

633 

$879 

Metodo di controllo dei f'ilee 

640-644 

$880-884 

Traccia di un file 

645-649 

$885-889 

Blocco di un file 

785-761 

$8D5-8F9 

BUFFER a disposizione per i 
messaggi di errore 

768-764 

$8FA-8FC 

Numero di blocchi liberi 


768-1083 $300-3FF BUFFER 0 
1084-1879 S400-4FF BUFFER 1 
1880-1535 S500-5FF BUFFER 8 
1536-1791 S600-6FF BUFFER 3 
1798-8047 S700-7FF BUFFER 4 


E per Finire con l'utilizzo del linguaggio macchina nella 
programmazione del 1541, ecco un listato, sempre in due parti, che 
dimezzerà’ il tempo di caricamento dei programmi, applicando un 
"turbo” al DOS del nostro drive. In pratica non viene aumentata la 
velocita’ del motorino, ma semplicemente modificata la quantità’ di 
dati leggibile nell’unita’ di tempo. 

- listato n. 83 - carica veloce- 
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Che cos’e’ un Editor 


Una delle migliori Forme di scrittura diretta su disco e’ 
realizzabile tramite l’uso di un Editor; non e’ altro, infatti, che 
un’utility che ci permette di accedere in modo ragionato ed analitico 
al blocco di una traccia qualsiasi del disco, dandoci l’opportunità’ 
di modificarlo, cancellarlo o riscriverlo completamente. 

Un blocco e’ formato da 556 bytes, formanti una tavola ideale di 
16x16 cellette di memoria. 

Avrete già’ notato quanto sia ricorrente il numero 16 quando si parla 
di locazioni di memoria in esadecimale. Per chi non lo sapesse, credo 
poche persone tra voi, vi sono due scale di valori che interessano il 
nostro computer: i valori decimali, corrispondenti al nostro comune 
modo di contare, ed i valori esadecimali, che invece di andare di 10 
in 10, variano di 16 in 16. Ecco un esempio pratico: 

DECIMALE 


00,01,02,03,04,05,06,07,0B,03,10,11,12,13,14,15.. 
ESADECIMALE 


00,01,02,03,04,05,06,07,0B,03,0A,0B,0C,0D,0E,0F . 


Per la conversione da decimale ad esadecimale, solitamente, si 
fa uso di tavole apposite, troppo lunghe per essere pubblicate, 
oppure si applica un particolare algoritmo, che e’ stato inserito nel 
seguente listato, 1'Editor appunto, che vi faciliterà’ di molto il 
lavoro. 


- listato n.24 - Editor-- 

Usando questo tipo di programma occorre fare molta attenzione: 
se non si e’ capaci di utilizzare al meglio le sue capacita’ e’ 
possibile perdere in modo irreversibile. 

Il listato presenta tutte le istruzioni di lettura e di 
scrittura che abbiamo incontrato nella parte iniziale di questo 
libro, ed e’ un’ottima pratica per la programmazione avanzata su 
disco. 

Le istruzioni 


Al momento del RUN, il dischetto verrà riportato sulla traccia 
1B tramite un Inizialise. Dopo qualche istante, premendo un tasto 
qualsiasi, sarete in grado di visualizzare la schermata principale 
dove si svolgerà’ la gran parte del lavoro. 

Ecco i comandi, seguiti dalla loro funzione: 


3B 








@ - 


r f T Questo tasto permette all’operatore di modificare il byte 
posto al di sotto del cursore. Non e’ una modifica diretta, ma viene 
richiesto il codice DECIDALE, che verrà’ poi convertito direttamente 
rial programma. Ricordate che quest’operazione avviene, per il 
momento, SOLO nella memoria del computer. Il blocco non sara’ 
modificato fino a quando non daremo l’istruzione per scriverlo sul 
disco . 


N - 


t T t L’istruzione, utilissima per capire dove viene memorizzata su 
disco il programma, permette la lettura del blocco successivo 
riferentesi al file il cui settore e’ al momento in memoria. Ad 
esempio, se un programma e’ memorizzato a partire dal lo blocco della 
17esima traccia, e prosegue nel 4o settore Cdella stessa traccia), 
avremo l’opportunità’ dì consultarlo direttamente saltando i blocchi 
Intermedi. 


J - 


T T T Salta al blocco indicato dalla posizione del cursore. Se 
nessun blocco viene indicato, viene riletto il blocco precedente, e 
cancellato il lavoro fino a quel momento svolto. 

Al.nozione, quindi, ad usarlo. 


- Q - 


t t t Permette di uscire dal programma senza modificare il blocco 
interessato. E’ da usare dopo aver memorizzata il blocco, o prima se 
ci siamo accorti di aver sbagliato a modificare il settore. 

Sono presenti delle routines di controllo che permettono 
n11'operatore di modificare all'ultimo momento il comando dato, in 
i aso di errore. 


R - 


ITT II comando piu’ importante, ed il piu’ pericoloso da usare 
senza accorgimenti: riscrive il blocco corretto sul. dischetto 
contenuto dal drive. 

Prima di utilizzarlo, e’ meglio che impariate quale sia la struttura 
del blocco di dati che state analizzando. 


B - 


ITT Permette la lettura di un altro blocco, di cui dovrete 
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inserire numero di traccia e di settore. Una routine impedirà’ 
l’errore, abbastanza facile, di lettura su blocchi o traccie 
inesistenti. 

Inutle dire che al momento della lettura, il supporto DEUE essere 
già’ stato formattato, altrimenti non potrà’ essere letto Ciò stesso 
vale se e’ presente un errore...! 


- T - 


t t t Grazie a questa istruzione e’ possibile inserire una stringa 
di testo all’interno del blocco. E’ un comando molto usato per la 
modifica di testi (su file sequenziali! o per cambiare i nomi dei 
programmi inseriti nella directory. Tenete conto, pero’, che molti 
programmi hanno un caricamento concatenato, il che vi costringerà’ a 
modificare anche l’istruzione all’interno del caricatore. 



t T T t Premendo questi due tasti e’ possibile leggere il blocco 
successivo C+! o quella precedente C-! al settore che appare in 
questo momento sul video. 

Cambiando traccia, pero’, sara ’ necessario premere la funzione ’’B” 
per saltare nelle giuste locazioni di memoria. 


Ualore decimale 


TTTtTTft Indica in qualsiasi momento il valore decimale del 
byte presente sotto il cursore ed e’ l'ideale per chi non ha molta 
confidenza con il Codice ASCII. 


Posizione 


T T T T T Calcola l’esatta posizione del byte sotto il cursore; 
vedremo quanto utile e preziosa sara’ questa indicazione, che ci 
permetterà’ di operare con una certa sicurezza modificando i 
blocchi.La posizione e’, naturalmente, calcolata i valori decimali, 
ed e’ a questi che faremo riferimento nelle nostre spiegazioni. 

Un’ultima raccomandazione 


Per i primi tempi lavorate sempre su una copia del disco che 
avete. E’ possibile, ripeto, sbagliare e non poter piu’ correggere 
l’errore. Se avete intenzione di modificare solo la directory per i 
nomi in essa contenuti, o 1 ’ intesatzione del disco, vi consiglio di 
utilizzare le utility già’ presentate o quelle comunque presenti in 
questo libro, che garantiscono la perfetta esecuzione 
dell’istruzione. 

Uedremo, nel prossimo capitolo, quante cose sia possibile fare 
grazie ad un editor. 
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x. n 


ET c 1 1. “I . u r 


Proteggere un programma non e’ facile. Abbiamo visto a che punto 
si e’ arrivati in questo tipo di tecniche. Ha saper proteggere 
equivale anche al saper "sproteggere”... 

Quali sono le reali capacita’ in nostro possesso, come 
modificare il disco, personalizzarlo, impedire la visione della 
directory, inserire un messaggio, caratterizzare la directory, ecc.? 
Con un po’ di pazienza affronteremo tutte queste problematiche, alla 
ricerca della praticità’ e del buon gusto (se e’ possibile...) 

La traccia 1B, blocco 0 

Questa traccia e’ fondamentale, ed e’ da considerarsi di gran 
lunga la piu’ importante. 

Carichiamo il blocco 0, ed analizziamolo: abbiamo dinanzi la 
BALI, e grazie alla conversione decimale che abbiamo, siamo in grado 
di ragionare in termini molto piu’ semplici. 

Partendo da sinistra, troviamo il numero 18 (badate. bene di 
osservare non tanto il carattere che appare nel blocca, quanto la 
conversione decimale in fondo alla maschera grafica di schermo) che 
rappresenta la traccia successiva dove e’ memorizzato il resto 
dell ’ iformazione. Il byte successivo, equivalente ad 1, rappresenta 
il blocco successivo di lettura. In poche parole, la lettura da parte 
del DOS inizia dalla traccia 18 blocco 0, e continua in traccia 1B 
blocco 1, e cosi’ via. Questo vale PER TUTTI I BLOCCHI, che 
utilizzano queste due locazioni esclusivamente per questo. 

La terza locazione di memoria e’ molto importante: e’ 
visualizzata una "A”, 65 decimale, e rappresenta un punto di 

riferimento per il DOS. Se noi andiamo a modificare questa lettera, 
avremo il nostro dischetto permanentemente protetto in scrittura. 
Potremo, cioè’, leggere ma non scrivere dati. Il messaggio di errore 
"73, DOS niSflATCH ,1B,00” indica che il dischetto non e’ compatibile 
con il drive. Questo perche’ la Commodore produce diversi tipi di 
drive, che tra loro sono completamente compatibili in lettura ed in 
scrittura, o solo in lettura.. Per rendere di nuovo compatibile il 
dischetto, e’ necessario ri-formattare completamente il supporto, 
cancellando tutta l’informazione compreso il 3o byte. 

Il quarto byte, invece, non ha alcuna importanza, e solitamente 
ha un valore 0. 

Le successive 140 locazioni contengono la BAH, ed ogni gruppo di 
'I bytes descrive i blocchi disponibili per ogni traccia. Il primo 
valore Cad es. 21) ci dice quanti blocchi siano disponibili nella 
prima traccia, ed i 3 bytes successivi sono l’analisi numerica di 
quanto detto prima. In esadecimale ci apparirebbero i seguenti 
valori : 

15 FF FF 1F 

dove 15 e’ uguale a 21 in esadecimale, e il resto dei valori ha il 
seguente significato: 

15 F F F F 1 F 
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15 FF FF 1F 


dove 15 e’ uguale a 21 in esadecimale, e il resto dei valori ha il 
seguente significato: 


15 

F 

F 

F F 

1 

F 

TT 

tt 

TT 

TT TT 

TT 

TT 

21 

1111 

1111 

mi mi 

0001 

1111 

Come vedete, la somma dei blocchi liberi e’ appunto 21 
Un altro esempio: ecco la traccia 35 

11 

F 

F 

F F 

0 

1 


dove 11 equivale al decimale 17, F e' uguale a 4 blocchi liberi, 0 a 
nessun blocco e 1 ad un blocco disponibile. 

La BAM viene aggiornata ogni volta che operiamo dei cambiamenti 
alla directory, tramite comandi come SAUE, SCRATCH, UALIDATE, ecc. 

I bytes compresi tra il 144 e il IBI contengono il nome del 
disco, che deve essere al massimo lungo 1S caratteri. Se il nome 
risulta piu’ lungo, esso viene automaticamente ridotto dalla 
scrittura di spazi vuoti. 

I bytes 162 e 1B3 racchiudono la I.D. del dischetto, che viene 
riportato su ogni header di blocco del supporto. 

II byte 164 e’ uno spazia shiftato CA0 in esadecimale!. 

I bytes 1B5 e 16B sono la rappresentazione in Codice ASCII della 
scrittura 2A, simbolo - del tipo di DOS e di- formattazione. 

I bytes 1B7, 16B, IBS e 170 sono spazi shiftati (questo 
carattere viene utilizzato per riempire tutti gli spazi vuoti che si 
vengono a creare sul disco). 

I bytes seguenti, dalla 171 alla 255 locazionesono azzerati, ma 
ogni tanto e’ possibile trovarvi dei caratteri ASCII. 

La BAn e’ modificabile in un numero infinito di modi: basta 
avere un po’ di fantasia e non utilizzare un dischetto con programmi 
la cui perdita potrebbe sconvolgerci... almeno per imparare. 

In ogni caso, vi consiglio di effettuare un cambiamento alla volta , 
per poi listare la directory e vedere gli effetti del nostro operato. 
L’uso dei caratteri ASCII e’ fondamentale, e vi consiglio di 
impararne bene la tabella. 

Uediamo byte per byte cosa e’ possibile modificare. 


I primi 2 bytes C0 e 1) contenenti i puntatori del blocco 
successivo, e 'meglio non modificarli, altrimenti non risulterà’ piu’ 
leggibile la directory, 

II byte n.2 può’ essere cambiato, ma una volta fatto dovrete 
rassegnarvi a non poter piu’ scrivere sul dischetto Csara’ come se 
aveste messo un’etichetta adesiva perenne sul taglio laterale. Alcuni 
copiatori, poi, potrebbero essere messi 
locazione. Infatti, se sono necessari tre 
intero disco, al secondo verrà’ bloccato 
dall’intestazione di questo blocca. 

Il byte 4 raccoglie i blocchi liberi della prima traccia, 


in difficolta’ da questa 
passaggi per copiare un 
processo di scrittura 


il 


- 42 - 


e se 






noi modifichiamo questa locazione il DOS non utilizzerà’ piu’ i 
blocchi che secondo lui risultano occupati. Ogni 4 byte c’e’ l’inizio 
rii un’altra traccia memorizzata dalla BAM. 

I bytes dal 5 al 7 sono la mappa in bit dei blocchi ancora 

allocabili: 

1 - disponibile 

0 - allocato Ce perciò’ non disponibile) 

Cambiando i valori di queste locazioni, confondiamo il DOS su 
quale blocco sta lavorando, ma tutto può’ essere riportato alla 

normalità’ da una UALIDATE. 

I bytes dall’8 al 143 rappresentano in gruppi di 4 tutte le 
traccie presenti sul dischetto. 

I bytes dal 144 al 161 racchiudono il nome del disco, e questo 
può’ essere cambiato a vostro piacere, inserendo anchedei caratteri 
che risulterebbero illegali tramite un comanda diretto (ad es. 
l’asterisco o il punto interrogativo). Uno dei modi piu’ classici 

consiste nell’uso del carattere DELETE C14 esa., 20 dee.), che posto 

in sequenza all’intestazione del disco occupandone le ultime 6 
locazioni cosi’: 


20 20 20 00 00 00 

Impedisce la visualizzazione della directory. Attenzione, 
nt1amoparlandò di valori DECIMALI; infatti il valore 20 in esad. 
corrisponde allo spazio. 

I byte3 successivi contenenti la I.D. possono essere modificati 
n piacere senza rovinare nulla <162 e 163), anche se non verranno 
cambiati gli I.D. di tutti i blocchi del dischetto. 

Le locazioni 165 e 166, dove risiede la designazione della 
formattazione, possono essere modificate, a patto che i caratteri 
filano leggibilidal DOS, per non creare problemi di lettura successiva 
rifalla directory. 

Nella zone seguente C167-255) qualsiasi variazione non sortisce 
alcun effetto sul contenuto del disco ed e’ un’ottima area per 
Inviare messaggi ai pirati di software. 


la traccia 1B, blocco 1 


A questo punto passiamo ad analizzare il blocco successivo, dove 
cioè’ inizia la directory del nostro dischetto. 

La directory può'contenere un massimo di 144 files, ed in essa 
possiamo trovare tuttele informazioni che ci possono interessare 
t (guardante i files. Ma vediamo analiticamente quale possa essere il 
contenuto del blocco 1 di traccia 1B. 


I bytes 0 e 1 contengono sempre ipuntatori al blocco successivo 
(traccia e settore); nel caso la directory contenga B files o meno, i 
line puntatori risulteranno essere 0 e 255 C00 e FF in esadecimale), 
locazioni che avvertono il DOS che questo e’ l'ultimo settore da 
Inggere di un File. 
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Il blocco sara’ cosi’ strutturato: 


byte 2 - byte 31 file n. 1 

byte 34 - byte 63 file n. B 

byte 66 - byte 95 file n. 3 

byte 98 - byte 127 file n. 4 

byte 130 - byte 159 file n. 5 

byte 162 - byte 191 file n. 6 

byte 194 - byte 223 file n. 7 

byte 226 - byte 255 file n. 0 


Nelle locazioni indicate troveremo tutte le indicazioni 
riguardanti un file che ci interessa, e cioè’ il tipo, dove si trova, 
il suo nome e la sua estensione in blocchi. Ma analizziamo ancora una 
volta analiticamente il contenuto di questo blocca. 

I bytes Bel indicano il successiva blocco della directory, che 
e' in traccia 18, settore 4 Ce questo perche’ viene memorizzata 
saltando tre blocchi alla volta). Nel caso non vi siano altri blocchi 
da leggere, i valori sarebbero 0 e 255; volendo modificare le 
locazioni, se in esse memorizziamo i valori 18 e 1, otterremo un 
continuo segnale di caricamento dopo il comando di lettura della 
directory: il puntatore continuerebbe a tornare su se stesso, creando 
un loop infinito. L’unico modo per fermarlo consiste nello spegnere 
il drive o il computer. 

Riportando pero’ i valori originali e’ passibile ripristinare la 
funzionalità’ di queste locazioni. 

II byte 2 contiene le informazioni che i DOS utilizza per 
classificare il tipo di file; ecco i valori: 


Esad. Decim. Significato 


00 

00 

Nessun file o file 

cancellato 

80 

128 

Nessun file o file 

cancellato 

81 

129 

File SEQuenziale 


82 

130 

File PRoGramma 


83 

131 

File USeR 


84 

132 

File RELativo 



Questo byte non deve essere modificato, a meno che non vogliate 
confondere le idee a qualche pirata di software. Cambiarlo significa 
il piu’ delle volte cancellare il file dalla directory. 

I bytes 3 e 4, invece, contengono i puntatori del primo blocco e 
traccia da cui ha inizia il file. Da non modificare. 

I bytes dal 5 al 20 hanno memorizzato il nome del file, che deve 
essere lungo 16 caratteri Cma in caso fosse piu’ corto, il DDS 
provvede a riempire gli spazi vuoti con degli spazi shiftati). 

Usando dei caratteri non visibili da Basic e’ possibile camuffare il 
nome del file, ma e’ una tecnica che scoraggia solo i principianti. 
La maggior parte dei copiatori di files, funzionanti in linguaggio 
macchina, sono lo stesso in grado di richiamarli, e di conseguenza di 
copiarli. 

E’ possibile, inoltre, inserire caratteri particolari quali il 
clear/home, o il delete, facendo riferimento sempre alla tabella 
ASCII. Nel caricarli da Basic, tenete conto di quanto avete fatto, ed 
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ni limite utilizzate la forma di caricamento con il nome del file 
nbbreviato (scrivendo la prima parte del nome seguita da 
un'asterisco!. 

|>nr personalizzare ulteriormente la directory, possiamo scrivere 
mlitirittura il numero di device dopo il titolo del programma, in modo 
che venga visualizzato ad esempio: 

10 "START”,8,1 PRG 

Hasta lasciare uno spazio shiftato dopo la fine del nome, dopo il 
quale possiamo scrivere quel che vogliamo senza modificare il file. 

I bytes da 21 a 23 sono solitamente non utilizzati, e vengano 
riempiti solo da files relativi. 

I bytes 28 e 29 sona nulli. 

11 resto della directory e’ semplicemente la ripetizione per ogni 
file. Ricordatevi che la modifica della directory ha piu’ una 
funzione estetica che "protettiva”, poiché’ solo i principianti 
vengono fermati da questo tipo di difficolta*. 
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Capitala 10: 


Test sulla moccanica 


Ricapitolando 


Uediamo di riassumere in poche righe le caratteristiche tecniche 
del nostro 1541: 


Dimensioni 


Altezza . . . 

. mm 

37 

Larghezza 

. mm 

200 

ProFondita’... 

. mm 

374 

Caratteristiche elettr 

iche 


Frequenza 

. Hz 

50 

Tensione 

. Uolt 

220 

Assorbimento . 

. Watt 

25 

Tipo di memoria 




Capacita’ dei dischi . 174.848 bytes 

Num. di files max. . 144 

Num. settori per traccia ... 17-21 

Num. bytes per blocco . 25E 

Numero traccie 35 

Numero blocchi totale . 683 

Numero blocchi disp. 664 

La testina magnetica 


Uno dei maggior problemi che si possono incontrare usando il 
1541 e’ la Facilita’ estrema al disallineamento della testina. Questo 
non Fa altro che creare problemi di lettura su dischi Formattati da 
altri drives. Ma cosa s’intende per disallineamento? 

Specialmente i primi modelli del 1541, quelli ancora color 
latte, ed i primi di quelli piu’ scuri, sono stati costruiti per 
leggere dati in una certa maniera, diciamo cosi’ tranquilla. Ma dopo 
un anno dall’uscita di questi lettori, e’ sorta la moda di proteggere 
con errori il supporto magnetico, creando una sollecitazione maggiore 
di tutta la meccanica. 

Abbiamo già’ parlato di quel che succede nel momento in cui un 
errore viene riscontrato sulla superFicie del supporto: la testina 
viene ri-inizializzata, picchiando contro il Fermo di acciaio posto 
al limite esterno del cerchio dove poggia il dischetto. 

La Funzione di questo piccolo trapezio consiste nel Fissare 
l’inizio della zona Formattabile del dischetto. La testina, inFatti, 
all’inizio della Formattazione, va a picchiare contro di esso, e 
stabilisce il punto di partenza della traccia numero uno. 

Il continuo battere ad ogni errore, le sollecitazioni di 
lettura, il calore che caratterizza l’operato del nostra drive (che 
ha uno dispersore di calore pressoché’ inesistente! hanno un eFFetto 
deleterio nei conFronti del Fissaggio di questo supporto, che risulta 
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dopo un pp’ di teinpo spostato rispetto alla posizione originale. 

Le conseguenze si vedono presto, o meglio si sentono: il rumore 
tende a subire una notevole variazione di tono e di intensità’, 
durante la Formattazione, -il tempo che intercorre tra un "battito” e 
l’altro e’ maggiore, e questo intuitivamente indica che il Fermo e’ 
piu’ lontano del solito, e di conseguenza la testina impiega piu’ 
tempo a raggiungerlo. 


- listato n.E5 - test n.l - 

Fortunatamente l’assistenza tecnica in questi ultimi tempi e’ 
migliorata e permette all’utente di aggiustare la propria macchina 
entro un ragionevole lasso di tempo* Fino a qualche mese Fa erano 
talmente pochi i centri di assistenza che i tempi di attesa si 
aggiravano sui sei mesi per una riparazione di questo tipo. 

Ma potremmo riparare noi il nostro 1541? Sono abbastanza 
scettico, anche perche’ pBr quanto possiamo essere in gamba, questo 
tipo di intervento presuppone una preparazione tecnica non 
lndiFFerente, e soprattutto una serie di accessori e di strumenti 
quali la spessimetro di precisione, l’oscilloscopio, ed altre 
apparecchiature di misura per il segnale che noi poveri mortali, 
nomplici appassionati, non possiamo possedere. 

Nonostante ciò’ ritengo giusto imparare a trattare con una certa 
conFidenza il nostro drive, soprattutto per sapere cosa non va e 
quale rimedio sarebbe opportuno applicare, per non prendere 
"fregature” e per sapere di quel che si parla quando si espone ad un 
tecnico il nostro problema. 

L’inconveniente principale di una testina non correttamente 
allineata sono i difetti di Formattazione e di lettura di dischi 
formattati da un altro drive. Spostatosi il fermo, la testina 
comincierà’ la Formattazione in una zona magnetica non usata dagli 
nitri lettori; ecco nascere 1.’ incompatibilita’ in lettura, per cui se 
raremo leggere al nostro 1541 un supporto formattato correttamente, 
In traccia uno riceveremo un errore come se li’ non fosse giunta la 
testina per 1’inizializzazione del dischetto. 

Le traccia interessate sono quelle estreme, la prima o la 
l'iesima, ma in caso di un’allontanamento maggiore non e’ escluso che 
Il disavanzo possa essere maggiore. 

Ma proviamo a smontare il nostro drive, con pazienza ed una 
certa delicatezza, seguendo le seguenti istruzioni: 

1 - Ruotate di 100 gradi l’apparecchio, in modo tale da vedere le 
quattro viti che mantengono chiusa la scatola di contenimento. 

E - Svitiamo le quattro viti non usando cacciaviti magnetici, e 
cercando di operare in modo simmetricamente obliquo Ccome se 
togliessimo i bulloni dalla ruota della nostra auto). 

3 - Estratte le viti (assolutamente da non perdere), ruotiamo 
nuovamente di 1B0 gradi la scatola riportando in posizione normale il 
drive. 

4 - Svitare le sei viti che tengono in un pezzo unico la parte 
mnr.canica al bordo. 

’i Rimuovete le due viti del coperchio di protezione di metallo e 
togliete il coperchio, staccando i Fili che collegano il LEO alla 
meccanica . 

I> Collegate con molta precauzione il cavo seriale al computer ed 
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il cavo di alimentazione nella presa posteriore apposita. 

Penso sia inutile ricordarvi che state agendo su un apparecchio a 220 
Uolt, che può’ uccidervi tranquillamente nel caso tocchiate qualcosa 
che non va assolutamente toccata Cle raccomandazioni non sono mai 
troppe!. 

Una volta aperto l’apparecchio, ci troviamo davanti la 
panoramica della macchina; possiamo idealmente dividerla in due 
parti. Una parte meccanica, comprendente il motorino, la testina di 
lettura, il tampone circolare, e la struttura metallica di sostegno. 
Una parte magnetica, dove campeggiano le ROM e le RAM del nostro 
drive, e che noi non toccheremo assolutamente, in quanto i contatti 
di questo tipo sono delicatissimi, ed una saldatura a stagno e’ molto 
facile da rovinare. 


- listato n.27 - test n.2 - 

Osservate la testina, in ceramica, caratterizzata da una riga 
nera centrale. Essa va pulita periodicamente, o con dei kit o tramite 
l’uso di cotone idrofilo e di alcool etilico puro, per non laciare 
residui sulla sua superficie. Toccarla con le dita vuol dire 
rovinarla in modo quasi irreversibile, poiché’ il grasso delle nostre 
dita coprirebbe la sua superficie impedendo una corretta lettura 
magnetica dei dati . 

I listati presentati in questo capitolo hanno una funzione 
puramente dimostrativa, e secondo me non possono essere giudicati 
adatti ad una riparazione efficace di un drive disallineato. Tramite 
loro pero’ possiamo vedere come si comporta il motorino, come si 
muove la testina, dietro quali impulsi si accende il LED, ecc. 

I listati 


Il primo programma e’ basato su quattro controlli principali: 

1 - test sull’efficacia della protezione da scrittura: occorre 
inserire un dischetto formattato e protetto da una linguetta adesiva, 
ed il programma proverà’ a scriverci sopra. Se il LED lampeggia, a 
segnalare un errore, il test e’ stato superato. 

2 - test sull’allineamento della testina: la testina va a leggere in 
traccie a caso dalla numero 35 alla numero 1, e questo per cinque 
volte. Se non vi sono errori di lettura, sintomo di errata 
formattazione del supporta, il test e’ superato. 

3 - test di compatibilita’ di due drive, collegati tra loro. Uiene 
effettuata la lettura e la scrittura di due dichetti, che vengono poi 
comparati. Come test non e’ molto efficace, perche’ nato per un 
sistema superiore direttamente a due drives. 

4 - test sulla funzionalità’ del LED luminoso, che ad un preciso 
comando deve lampeggiare. 

Questo prima listato può’ essere fatto funzionare a drive chiuso. 

Il secondo programma, invece, richiederebbe l’apertura del drive 
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per il contraile del movimento della puleggia. In piu’ e' possibile 
calcolare la calibratura tra lo stop ed il passaggio della testina. 

listato n.HB - test drive 3 - 

Il terzo test, forse il piu’ efficace, ci da’ la possibilità’ di 
sbizzarrirci scorrendo sul dischetto come su di una pista di 
pattinaggio, di saltare da un blocco all’altro, di effettuare test di 
lettura e di scrittura sul supporto. 

Ila ecco le istruzioni: 

I - Sposta la testina sul blocco successivo; una routine controlla 
che non si cerchi di accedere a indirizzi illegali. 

D - Sposta la testina sul blocca precedente. 

B - In qualsiasi punto si trovi la testina, viene riportata al 
centro del dischetto, in traccia 17. 

H - La testina effettua dei salti casuali dauna parte all’altra del 
si ipporto. 

D - Fine del programma. 

X - Il programma effettua un test di scrittura e di lettura sul 
disco, che deve essere formattato e privo dell’etichetta di 
protezione. 

Uiene anche effettuato un test sulla distanza tra il fermo ed il 
movimento della testina. In questo caso il drive dovrebbe essere 
aperto,manon e’ poi cosi’ indispensabile. 

Insomma, se volete un consiglio, controllate pure se il vostro 
drive risulta disallineato, ma non fate nulla£er tentare di 
aggiustarlo da soli. neglicjSpendere un po’ di tempo e di denaro 
piuttosto che rovinare l'apparecchio o correre il rischio di morire 
r olgorati. 
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Capitala 11 : 


Disk dL-ivB 1S71 


Il drive 1541 di cui abbiamo già' ampiamente parlato presenta due 
limitazioni fondamentali: la velocita’ e la capacita’. Per queste 
ragioni il suo impiego e’ ristretto ad un uso principalmente 

hobbistico, con gran dispiacere di tutti coloro che utilizzano i 
computer Commodore per scopi professionali oltreche’ per giocarci. 
Per queste ragioni e. per venire incontra alle esigenze di tutti 
coloro che volevano rendere il loro sistema piu* completo e 
professionale la Commodore ha -messo sul mercato dapprima il drive 
1570 e piu' recentemente il 1571, quest’ ultimo particolarmente 

adatto a lavorare in stretta simbiosi con il computer Commodore 18B. 

Anzitutto anche il 1571 e’ un drive intelligente, cioè’ fornito di 
un microprocessore interno Ce precisamente di un 6508A) che si occupa 

di comunicare con l’unita’ centrale tramite il bus seriale e di 

gestire fisicamente il disco. Inoltre questo drive e’ in grado di 
fare molte cose interessanti come ad esempio simulare il 
funzionamento e tutte le caratteristiche interne di un 1541 o leggere 
dischi formattati con standard completamente diversi da quelli della 
Commodore. 

ria andiamo per gradi. Cominciamo anzitutto a vedere quelle che sono 
le sue caratteristiche fondamentali: 

- Doppia testina (cioè’ doppia faccia) 

-Capacita’ totale formattata: 349696 bytes 

- Massima dimensione dei file sequenziali: 337318 bytes 

- Massima dimensione dei file relativi: 161138 bytes 

- Massimo numero di files distinti per disco: 144 

- Record per file: 65535 

- Traccie per disco: 70 

- 5ettori per ogni traccia: da 17 a 81 

- Numero di bytes per settore: 856 

- Numero di settori per disco: 1366 (totali), 1388 (disponibili) 

- 38 Kb di ROM interna 

- 8 Kb di RAM interna 

Dalle caratteristiche si vede subito anzitutto che la capacita’ e’ 
doppia rispetta al vecchio 1541, difatti ora abbiamo due testine 
distinte (una per lato), che permettono di utilizzare dischi doppia 
faccia senza essere costretti a ritagliarli ma soprattutto senza 
doverli girare da un lato all’altro. 

Parliamo ora un pochino della velocita’. Il drive 1571 e’ abilitato 
al caricamento dei dati e dei programmi con una velocita’ che può’ 
essere da cinque a sei volte superiore a quella del 1541 tuttavia 
questa caratteristica può’ essere sfruttata solo con il Commodore 188 
che e’ fornito .di una gestione veloce dei dati sul bus seriale. 

Mentre se usato con il CBM 64 che tratta i dati sul bus seriale alla 
solita velocita’ questa caratteristica non può’ essere sfruttata. 

Rimangono tuttavia i notevoli vantaggi della doppia capacita’ e altri 
che vedremo in seguito. 

Come già’ accennato precedentemente il 1571 può’ simulare il 

vecchio 1541 e potremo cosi’ avere due modi operativi principali 
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differenti : 


MODI 


OPERATIVO 1571 


E’ il moda operativo principale che entra automaticamente in 
funzionamento quando il drive e’ collegato ad un Commodore 120 sin 
dalla sua accensione. Questo modo operativo consente il trasferimento 
veloce dei dati e la doppia capacita’. Può’ anche essere ottenuto 
dopo 1'accensione tramite il comanda del basic: 

□PEN 15,0,15,"U0>ni”:CLOSE15 

questa comando può’ essere utilizzato sia con il Commodore 120 che 
con il CBM 64 anche se, come già’ spiegato, in quest’ultimo caso 
potremo si’ utilizzare la doppia capacita’ ma la velocita’ di 
caricamento resterà’ quella usuale del 1541. Centriamo ora un attimo 
l’attenzione sulla precedente istruzione, in essa compare il numero 0 
che rappresenta il numero di device fondamentale dell’unita’ 
drive.Questo numero e’ molto importante quando si lavora con piu’ di 
un drive e può’ essere selezionato sui valori 0, 0, 10 o 11 tramite 
un piccolo commutatore presente sulla parte posteriore del drive. 
Qalora sia stato precedentemente cambiato bisognerà' ovviamente 
tenerne conto nel1’impartire l’istruzione. Ultima ma importantissima 
caratteristica di questo modo operativo e’ la capacita’ di leggere e 
scrivere su dischi formattati in uno standard CMFM modified frequency 
modulation! differente da quello della Commodore Cchiamato GCR group 
code recording! e questa peculiarità' sara’ di fondamentale 
importanza quando si lavorerà’ in ambiente CP/M. 

MODO OPERAI IUQ 1541 


All’atta dell’accensione il drive entra automaticamente in 
funzionamento in questo modo operativo (ricordiamo qui’ inoltre che i 
drive e tutte le periferiche in generale devono sempre essere accesi 
prima dell’unita’ centrale!. Quando poi il computer verrà’ accesa, se 
e’ un Commodore 120 provvedera’ autamaticamente a settare il drive in 
modo operativo 1571, mentre se e’ un CBM 54 rimarra’ inserito il modo 
operativo 1541. Dato che del drive 1541 abbiamo già’ ampiamente 
parlato ci limitiamo qui’ a ricordate che e’ un singola faccia 
abilitato a leggere i dischi formattati esclusivamente in GCR con 
solo 35 traccie. In questo modo operativo la simulazione del drive 
1541 e’ totale cioè’ compatibile al 100 \ e potranno quindi essere 
utilizzati i programmi tipo Turbo-Disk o cartuccie analoghe. Questo 
modo operativo può’ comunque essere ottenuto dopo l’accensione del 
computer con il comando basic: 

□PEN 15,0,15,”U0>M0”:CLOSE15 

per cui valgono considerazioni analoghe all’altra istruzione 
riguardanti il numero di device. A beneficio degli utenti del CP/M 
ricordiamo che in questo modo operativo potranno essere caricati e 
salvati programmi in CP/M posti su dichi forattati in modo GCR 
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realizzati con la vecchia cartuccia CP/M del CBfl 64. 


I DISCHI 


Per quanto riguarda i dischi e per qualunque dei due modi operativi 
si scelga e’ bene comuque utilizzare dischetti doppia faccia doppia 
densità’ (contraddistinti dalla sigla DS,DD), che saranno 
indispensabili per il funzionamento in modo operativo 1571, e 
potranno comunque essere utilizzati da entrambi i lati anche 
nell’altro modo operativo semplicemente realizzando un seconda tacca 
con delle forbici Co con appositi marghingegni in vendita nei. 
computer—shop) e girandoli sull’altro lato. In quest’ultimo caso 
pero’ seppure la capacita’ viene raddoppiata non potremo accedere 
contemporaneamente ad entrambe i lati del disco. 

Quando siamo in modo operativo 1571 possiamo lavorare su dischi che 
siano stati formattati in entramdi i modi operativi mantenendo le 
caratteristiche di velocita’ tipiche del 1571. Tuttavia i dischi 
formattati dal 1541 resteranno comunque dei singola faccia ed avranno 
quindi una capacita’ dimezzata, a meno di non riformattarli con 
conseguente perdita di tutti i dati immagazzinati. 

Se invece siamo in modo operativo 1541 potremo ovviamente leggere 
senza alcun problema i dischi formattati dal 1541 mentre quelli 
formattati dal modo operativo 1571 potranno essere letti solo sul 
lato A (cioè’ quello in cui risiede la directory). Non ci si faccia 
trarre in inganno dal fatto che la directory contiene ancora tutti i 
file (immagazzinati nell’altro modo operativo) perche’ potremo 
comunque caricare solo quelli che risiedono interamente sul lato A. 
Gli altri file non sono affatto persi, basterà’ tornare nell’altro 
modo operativo per poterli ricaricare. 


INSTALLAZIONE E MANUTENZIONE 


Installare un drive 1571 e’ un’operazione semplicissima. Ma 
procediamo per passi: 

Passo 1 - Estrarre il drive dalla sua scatola di imballagio 
(conservare quest'ultima nell’eventualità’ di un sucessivo 
trasporto). 

Passo E - Uerificare che nella scatola siano inoltre effettivamente 
contenuti tutti gli oggetti elencati esternamente ad essa. 

Passo 3 - Accertarsi che la tensione di alimentazione prevista sia 
5E0U e che l’interruttore di accensione sia in posizione OFF quindi 
collegare il cavo di alimentazione ad una presa di rete e sull’altra 
capo alla presa a tre poli presente sul lato posteriore del drive. 

Passo 4 - Collocarlo in una posizione che consenta il circolo 
dell’aria onde evitare eccessivi surriscaldamenti. 

Passo 5 - Accertarsi che il computer sia spento e collegare quindi 
il cavo seriale alle prese SERIAL PORT sul retro del computer e del 
drive . 

Passo 6 - Rimuovere il cartoncino inserito nella fessura del drive 
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Ce conservarlo per eventuali sucessivi trasporti!. 

Passo 7 — Accertarsi che il commutatore di numero device sia posto 
sull’otto e infine accendere prima il drive e poi il computer. 

Come ultima raccomandazione trattate sempre bene i dischi e 
provvedete almeno un volta l’anno Co piu’ di frequente per un uso 
intensivo) a far pulire e lubrificare le parti interne del drive 
presso un centro tecnico Commodore. 


COMANDI BASIC 


Il drive 1571 essendo compatibile sia con il CBM 64 che con il 
Commodore 12B e’ in grado di accettare e quindi eseguire i comandi 
del basic 2.0 e del basic 7.0 che sono i linguaggi installati nei due 
computer sopra menzionati. Inoltre tali comandi li accetterà’ in 
entambi i modi operativi del drive. 

Per quanto riguarda i comandi del basic 2.0 Ccioe’ del CBM 64) 
valgono tutte le considerazioni esposte nella prima parte del libro. 
L’unica aggiunta e’ ovviamente il comanda che permette al drive di 
settare uno dei due modi operativi permessi e di cui abbiamo già’ 
ampiamente parlato. 

Il basic 7.0 e’ un linguaggio molto piu’ evoluto che, tra le altre 
cose, contiene al suo interno anche tutti i comandi del basic 2.0 
ciò’ consentirà’ inoltre di trasportare sul Commodore 12B e quindi 
sul drive 1571 tutti i programmi basic 2.0 sviluppati sul CBM 64 Ce 
drive 1541) consentendo inoltre di guadagnare in velocita’ e 
capacita. 


- I COMANDI DEL BASIC 7.0 

Un primo grande vantaggio del basic 7.0 e’ il nuovo metodo per la 
rilevazione degli errori. Infatti quando vedremo lampeggiare 
Furiosamente il led rosso potremo avere immediatamente un’idea dello 
stato del disco perche' questa sara’ memorizzato nella variabile DSS 
1 che e una parola riservata del basic) e con una semplice istruzione 

PRINT DSS otterremo il messaggio di errore relativo al drive. 
Elenchiamo ora i comandi del basic 7.0. Si tenga presente che tutte 
le lettere maiuscole andranno riportate tali e quali nei comandi, 
mentre quelle minuscole indicheranno dei paramtri che andranno 
aggiunti dall’operatore; quando infine un parametro sara’ racchiuso 
da parentesi quadre C...1 ciò’ indicherà’ che tale parametro e’ 
opzionale e se omesso verrà’ assunto quello di default Ccioe’ quello 
tipico all’atto dell’accensione). Ualgono inoltre tutte le 
( onsiderazioni già’ fatte nella prima parte del libro per quanto 
riguarda le dimensioni dei nomi dei file e l’uso dei due caratteri * 
n ? per sostituire parti mancanti di parole o caratteri mancanti. 
Ultima ma importante considerazione e’ che quando un parametro 
ntringa Ccome ad esempio nomefile) viene sostituito da una variabile 
ni Fanumerica Cad esempio AS) questa dovrà’ essere racchiusa tra 
imrentesi CA$) anziché’ tra virgolette. Ad esempio se si pone 
A$-”nomeFile” le due istruzioni DSAUE”nomefile" e DSAUECAS) sono 
equivalenti . 
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-DSAUE”nomefile”C,UdeviceDC,DdriveD 

Questa istruzione permette il salvataggio di un programma su disco, 
nomefile e’ il nome che si assegna al file (programma in questione) 
ed e’ obbligatorio, se inoltre il nome del File e’ peceduto dal 
carattere G allora questo File andrà’ a sostituirne uno vecchio con 
lo stesso nome; device e’ il numero di device di cui abbiamo già’ 
parlato e che può’ essere B, 3, 10 o 11 Cse omesso viene assunto 
automaticamente 8), infine drive e’ un parametro che interessa solo i 
drive doppi e può’ essere 0 o 1. 

-B5AUE”nomefile”C,UdeviceDC,DdrivelC,BbankDC,Pindiniz IO indfin+lD 


Con questa istruzione possiamo salvare zone di memoria comprese tra 
indiniz che e’ l’indirizzo iniziale e indfin che e’ l’indirizzo 
finale Cnel comando questo valore andrà’ aumentato di uno). I 
parametri device e drive sono identici a quelli dell’istruzione 
DSAUE. Il parametro bank dovrà’ essere compreso tra 0 e 15 e 
indicherà’ uno dei sedici banchi di memoria disponibili sul Commodore 
128 e che indichiamo appresso: 


CI 


banco 0: 
banco 1 : 
banco 2: 
banco 3: 
banco 4: 
banco 5 : 
banco 6: 
banco 7: 
banco 8: 
banco 8: 
bancol0: 
bancoll: 
bancol2: 
bancolS: 
bancol4: 
bancolS: 
banchi 


solo RAMC0) 
solo RAMC1) 
solo RAMC2) 
solo RAMO) 

R0f1 interna, RAMC0), Input/Dutput 

ROM interna, RAMC1), Input/Output 

ROff interna, RAMC2), Input/Qutput 

ROM interna, RAMO), Input/Output 

ROM esterna, RAMC0), Input/Output 

ROM esterna, RAMC1), Input/Output 

ROM esterna, RAMC2), Input/Output 

ROM esterna, RAMO), Input/Output 

KERNAL e ROMClou) interna, RAMC0), Input/Output 

KERNAL e ROMClou) esterna, RAMC0), Input/Output 

KERNAL e ROMCbasic), RAMC0), ROMCcaratteri) 

KERNAL e ROMCbasic), RAMC0), Input/Output 

segnati con l’asterisco sono disponibili 


solo 


congiuntamente ad espansioni di RAM esterne) 


-DUERIFY”nomefile”C,UdevicelC,DdriveD 


Questa e’ una semplice istruzione che va a verificare che il 
programma in memeoria sia identico a quello salvato sul disco con il 
nome nomefile. I parametri device e drive sono identici a quelli 
dell’istruzione DSAUE. 


-COPYCDdrive,D”nomefilev”TO"CDdrive,D”nomefilen”C,Udevicel 

Con questo comando possiamo copiare un File che abbia come nome 
nomefilev in un nuovo File che verrà’ chiamato nomefilen. Device e’ 
un parametro identico a quello usato nell’istruzione DSAUE. La copia 
deve essere effettuata sullo stesso disco oppure se si dispone di 
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un’unita’ drive doppia può’ essere effettuata dai drive 0 al drive 1 
o viceversa specificandolo nell’istruzione con i due parametri drive. 

-CONCATCDdrive,]”nomefilei”TOCDdrive,3”nomefile”C,Udevice) 

Questa istruzione permette di aggiungere il file chiamato nomefilel 
al file chiamato nomefile. Entrambi i file devono essere sequenziali. 
Se si dispone di un’unita’ drive doppia e’ possibile che i due file 
siano posti su due dischi diversi e ciò' andra’ ovviamente 
specificato con i due parametri drive. Il parametro device e’ analogo 
a quello dell’istruzione DSAUE. 

-SCRATCH”nomefile”C.UdevicelC.Ddrive] 

Quando un file non e’ piu’ necessario può’ essere eliminato dal 
disco con questo comando che lo cancella completamente. I parametri 
device e drive sono quelli usuali. Il computer risponderà’ con la 
domanda -ARE YOU StIRE ?- per farvi capire che state andando a 
cancellare irrimediabilmente un file, se difatti volete cancellarlo 
rispondete con Y Cche sta per YES cioè’ si). 

-RENAHECDdrive,)"nomefilev”TOCDdrive,3”nomefilen”C,Udevice) 

A volte si può’ rendere necessario cambiare il nome di un file per 
svariati motivi e ciò’ può’ essere ottenuta con questa istruzione 
dove nomefilen e’ il nuovo nome che verrà’ assegnato al file 
nomefilev. I parametri device e drive sono quelli usuali 

-CDLLECT 

Questa istruzione permette analogamente all’istruzione UALIDATE del 
basic 2,0 di di riordinare la BAH Cblock availability map) liberando 
il maggior numero di blocchi disponibili che per qualche ragione 
erano stati precedentemente occupati e cancellati malamente. 

-BACKUP Ddriveo TO Ddrivec C,Udevice) 

Quando e solo quando si dispone di un’unita’ drive doppia Ce non di 
due drive separati) può’ essere utilizzato questo comando per 
realizzare una copia perfetta di un disco. Il parametro driveo deve 
essere 0 o 1 ed indica il drive in cui va inserito il disco sorgente, 
mentre il parametro drivec deve essere 1 o 0 ed indica il drive in 
cui va inserito un disco vuoto su cui realizzare la copia, questo 
disco non necessita di essere precedentemente formattato ed eventuali 
dati presenti su di esso prima di questo comando andranno 
irrimediabilmente perduti. Per questo motivo il computer risponde a 
questo comando con la domanda ARE YOU BURE? per farvi capire che 
state per modificare irrimediabilmente qualcosa; se volete che il 
comando abbia esito dovrete ovviamente rispondere Y Cche significa 
• 1 ) . 

-DLOAD"nomefile”C,Udevice)C,Ddrive) 

Un programma che sia stato precedentemente salvato su disco può’ 
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essere ricaricato con questo comando, nomefile indica il nome del 
programma che si vuole ricaricare, mentre i parametri device e drive 
sono quelli usuali indicanti il numero della periferica CB, 3, 10 o 
11) e del drive Csolo per unita’ drive doppie, 0 o 1). 

-8L0AD”nomefile”C.UdeviceDC.DdriveDC,BbankDC,Pindinizl 

Questo comando permette di ricaricare una zona di memoria che sia 
stata precedentemente salvata con il comando BSAUE. I parametri 
device, drive, e bank sono identici a quelli dell’istruzione BSAUE. 
Il parametro indiniz, se messo indica l’indirizzo di memoria di 
partenza in cui si vuole che avvenga il caricamento se invece tale 
parametro viene omesso il file sara’ ricaricato nella stessa zona di 
memoria da cui e’ stato salvato. 

-BOOTI”nomefile”)C,UdeviceDC,DdriveD 

I parametri di questo comando sono tutti opzionali. Il suo effetto 
e’ quello di caricare un file in linguaggio macchina e farne 
automaticamente partire l’esecuzione. Se il nome del file viene 
omesso verrà’ caricato ed eseguito il primo file in liguaggio 
macchina che verrà’ incontrato sul disco Ccioe’ un file di tipo USR). 

I parametri device e drive sono quelli usuali. Tale comando e’ ad 
esempio indispensabile per attivare il Commodore 128 al modo di 
funzionamento in CP/h con il microprocessore ZB0 interno. 

-DIRECTORYCUdeviceDC.DdriveDC,”nomefile”D 

-CATALOGCUdeviceDC,DdriveDC,”nomefile”D 

Questi due comafndi sono perfettamente identici e permettono di 
visualizzare sullo schermo la directory del disco che si trova nel 
drive specificato dai parametri device e drive, senza andare a 
modificare nulla ne in memoria ne sul disco. Il nomefile sara’ in 
generale una stringa in cui compariranno i caratteri Jolly * e ? che 
permetteranno di avere la directory solo di alcuni file. Ad esempio 
con il comando DIRECTQRY”a*” avremo la directory del drive 0 
sull’unita’ periferica 8 di tutti i file il cui nome inizia con la 
lettera a. 

-DCLOSEC#nfilogicoDC,UdeviceD 

Questo comando permette di chiudere un file aperto sul disco posto 
nel drive individuato dal numero di deviceCB, 3, 10 o 11). Se 
nfilogico che e’ il numero del file logico con cui quel file e’ stato 
aperto e’ omesso verranno chiusi tutti i file aperti su quel disco. 

-DQPEN#nfilogico,"nomefilei,S/PD”C,LreoiungiC,UdeviceDC,UdriveDC, uiD 

Con questo comando possiamo aprire un file chiamato nomefile sul 
disco per leggerci e/o scriverci dentro. 11 parametro nfilogic e’ il 
valore che noi assegnamo al file logico e deve essere un valore 
compreso tra 0 e 255 (valori maggiori di 128 compresa forzano un 
RETURN ad ogni scrittura PRINT# nel file). Alla fine del nomefile può 
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essere messa Cseparata da una virgola) la lettera S che indica File 
di tipo sequenziale oppure la lettera P che indica File di tipo 
programma. Il parametro reclung rappresenta la lunghezza del record 
(solo per i File relativi). I parametri device e drive sono quelli 
usuali. InFine la lettera ui se messa indica un File aperto in 
scrittura, se omessa un File aperto in lettura Ci File relativi 
ovviamente non necessitano questo parametro dato che sono aperti 
contemporaneamente in lettura e in scrittura). 

-HEADER”nomedisco”C,lidie.UdeviceK,Ddrive) 

La Formattazione dei dischi può' essere eFFettuata con questo 
comando. A seconda del modo operativo in cui ci si trova cioè’ 1541 o 
1571 il disco sara’ Formattato in singola Faccia o doppia Faccia. Il 
parametro nomedisco e’ il nome che assegnamo al disco e il parametro 
id e’ 1’identiFicatore del disco Cche può’ essere omesso). I due 
parametri device e drive sono quelli usuali. A questo comando il 
computer risponde con la domanda ARE YQU SURE? per Farvi capire che 
state compiendo qualcosa di irreparabile; se volete che il disco sia 
Formattato dovete ovviamente rispondere Y Cper si). 

-RECDRD#nFi logie , numrecordC , by te) 

Con questa intruzione posizioniamo il puntatore al record di un 
File relativo con il parametro numrecord. Eventualmente possiamo 
posizionarci all’interno del record in un punto qualsiasi con il 
parametro byte. Il parametro nFilogic rappresenta il numero di File 
logico stabilito all’atto dell’apertura del File con l’istruzione 
□OPEN. 


I IL DISCHETTO CON TUTTI I 33 LISTATI SARA’ SPEDITO INVIANDO 
I L'IMPORTO A MEZZO VAGLIA 0 ASSEGNO NON TRASFERIBILE DI 
j t 20.000+4.000 PER SPESE POSTALI Ai 

I EDISOFT SRL VIA FERRANTE AP0RTI,34 -20123 MILANO T. 02/2893380 
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100 REM ****************************** 

103 REM LISTATO N 1 

106 REM ****************************** 

110 REM TEST DISCO 

120 REM ****************************** 

130 DN=8:M>W*"DISCO TEST 001 * :ND**"39" 

140 DIMT<100):DIMS<100) 

150 POKE53280,01POKE33281,7IP0KE646,0 

160 PRINT'iJ-“ 

170 PRINT"OB TEST LETTURA E SCRITTURA SU DISCO 1.1 ■" 

180 PRINT'O-" 

190 IFDF“0THENGOTO580 
200 D*-"0" 

210 0PEN13,DN,13 
220 PRINT#13, ’VD» 

230 NX=RN3<TI >*235 

240 A*= *"IFORI = 1T0233IA*=A*+CHR*<253AN0 <1+NX))iNEXT 

250 GOSUB340 

260 0PEN2,DN,2,"#" 

270 PRINT!PRINT#2,A*S 
280 T>HS»0 

290 PR1NT#13,"B-AX"DSJTlS 

300 INPUT#13,EN,EM*,ET,ES 

310 IFEN*0THEN340 

320 IFET=0THEN420I REM END 

330 PRINT#13,"B-A!"D*>ET;ES«T»ETiS=ES 

340 PRINT#13,"U2i2,“D*;T»S 

330 NB=NB+1 lPRINT"**g BLOCCHI TESTATI N. "NB 

360 PRINT'B 3 TRACCIA HHHi"T; * a SETTORE ■■■'S " (XZXZ]“ 

370 Ih#»UT#13,EN,EM*,ES,ET 

380 IF EN*0THEN280 

390 T<J)»T:S<J)»S:J*J+1 

400 PR INT'MMmHtl a BLOCCO ROV I NATO: (BT .T;S“*BBBÌ" 

410 GOTO280 
420 PRINT#13,"I"OS 
430 GOSUB540 
440 CL0SE2 

430 IFJ*0THENPRINT”MBM«l TEST NEGATIVO! OK!"!EMD 
460 0PEN2, DN ,2, "# " 

470 pRiNT’aaaMa blocchi Rov.",*a traccia-," a settore- 

480 FORI*0TOJ-I 

490 PRINTW15,"B-Ai*!0*,T<I>;S<I> 

300 PRINT,,T<I),S<I) 

310 NEXT 

320 PRINT-B”J" BLOCCHI ROVINATI SONO PRESENTI 

330 CL0SE2! END 

340 INPUT#15,EN,EMS,ET,ES 

330 IF EN=0 THEN RETURN 

560 PRINT"*CRRORE # ”EN,EM»J ET; ES ■ * 

570 PRINT#1S,"I"D* 

580 REM **************************** 

390 REM FORMATTAZIONE 

600 REM **************************** 

610 PRINT"** IL DISCO E' GIÀ' FORMATTATO ? CS/N) 
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G20 GETSI*:IFSI*=""THEN620 
630 IFSI#="S "THEf s OF = 1 : GOTO 160 
640 IFSI*<>"N"THEN620 

630 PRINT"*Ì STO FORMATTANDO IL DISCO “ 
660 PRINT-a NOME : 9"NM*;"9 ID : 9” ;NO# 
670 OPEN1 ,8,13,"N0: "+M«t#+", •+hCS 
680 CLOSE1 

690 PRINT*9 FORMATTAZIONE ESEGUITA ” 

700 FORTY=0TO1000 : NEXTTY 
710 PRINT" INIZIO IL TEST * 

720 FORTY=0TO1000 :NEXTTY 
730 GOTO 160 


100 
1 10 
1 13 
120 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
4 10 
420 
4 30 
440 
430 
460 


REM ******************************* 

REM LISTATO N 2 

REM ******************************* 

REM UTILITY DISK PER C64 & 1541 
REM ******************************* 

REM INIZIALIZZAZIONE 

POKE33280,0 !P0KE33281,0:POKE646,7 

MX = 144 :DIM SC*<MX) 

0PEN15,8 ,13 

REM LOOP PRINCIPALE 

GOSUB 1140 : REM STAMPA MENU 

GETTS:IFT*<CHR*<133>ORT*>CHR*<140) THEN 230 

PRINT’a F"J:A=ASC<T*> 

IF A<137THENGOTO270 

PRINTCHRSC<A-137>*2+50);• 9 ” : GOTO280 
PRINTCHR*<<A-133)*2+49>; " 9 " 

FORT»0TO500:NEXT:PRINTCHR*<147); 

ON ASC<T*)-132 GOSUB1310,460,930, 820,520,1740,1040,780 

GOTO 220 : REM FINE DEL LOOP 
REM SUBROUT. 01 ERRORE 
INPUT#13,A*,B*,C*,D* 

IF VAL(A*)<20 THEN RETURN 

PR I NT * PR I NT " 23 DISK ERROR 1 “ 

PRINT 

PRINT'ERRORE NUMERO A*; 

PRINT" IN TRACCIA ";C*;“ ,SETTORE ";D* 

PRINT'DESCRIZIONE ERRORE : " ; B* 

PRINT:PRINT"MI SPIACE_■ 

GETT*:IFT*< >CHR*<13)THEN400 
RETURN 

REM RITARDO PER IL DISCO <SUB) 

PRINT*INSERISCI IL DISCO" 

GET T*:IF T*<>CHR*<13>THEN440 
RETURN 

REM VALIDATE DEL DISCO 
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470 OOSUB 420 IREM INSERIMENTO DISCO 
400 PRINTIRRINT"ATTENERE" 

490 PRINT#13,"VALIDATE* 

500 OOSUB 310 «REM TESTA PER ERRORI I/O 
510 RETURN 

520 REM FORMATTA UN 01SCO 
530 OOSUB 650 «REM NOME DEL DISCO 
540 OOSUB 600 IREM IOENT. DEL DISCO 
550 OOSUB 420 «REM ATTESA 
560 PRINT« PRINT"ATTENDERE * 

570 PRINT#15,"N0:"»NA*>*,"JID* 

580 OOSUB 310 I REM TESTA PER ERRORI I/O 

590 RETURN 

600 REM ID DEL DISCO 

610 ID*=""I IISPUT’ID "JID* 

620 IF LEN<ID*)*2 THEN RETURN 

630 PRINT"L'ID DEVE ESSERE DI 2 CARATTERI" 

640 PRINTIGOTO 610 
650 REM NOME DEL DISCO 

660 NA*-”"lINPUT-NOME DEL DISCO "INA* 

670 IFNA*< > * "ANDLEN(NA*> < « 18THEFRETURN 

680 PRINT"IL NOCE DEVE ESSERE UNA STRINGA DI NON" 

690 PRINT’PIU 1 DI 16 CARATTERI" 

700 PRINT:GOTO 660 

710 REM SCRIVE HD* E DA' IL NOft AL FILE 

720 PRINT HO*l 

730 NA**""tINPUT NA* 

740 IFNA*< >""AhOLEN(NA*> < = 16THENRETURN 

750 PRINT" IL NOME DEL FILE E 1 UNA STRINGA NON " 

760 PRINT“NULLA DI 16 CARATTERI AL MASSIMO" 

770 PRINTIGOTO 720 
780 REM USCITA 

790 PRINT CHR*<147)1"TANTI SALUTI"iPRINT 
800 CL0SE15 
610 EMI 

820 REM LOAD & RUN UN PROGRAMMA 
830 CLRI HD*= "NOf*E DEL PRG * 

840 GOSUB 710 : REM NOME DEL FILE 
850 OPEN15,8,15:OPEN2,8,2,NA* 

860 GOSUB 310 : REM TESTA PER ERRORI I/O 
870 IF VAL<A*)<>0THEN CL0SE2■RUN 
880 CL0SE2:PRINT:PRINT"LOADING "INA* 

890 CLOSE15:LOAD NA*,8,1 
900 0PEN15,8,15 

910 GOSUB 310 : REM TESTA PER ERRORI I/O 
920 CLOSE15:RUN 

930 REM FA LA COPIA DI UN FILE 
940 HD**"VECCHIO FILE ■ 

950 GOSUB 710 : REM NOI*£ DEL FILE 
960 OLO*=NA* 

970 HD*="NUOVO FILE ■ 

980 GOSUB 710 I REM NOIt DEL FILE 

990 GOSUB 420 : REM ATTENDE IL DISCO 

1000 PRINTIPRINT"COPIO ";OLD*I" IN "INA* 
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1010 pr1NT#15,"C0 *";na*;"«01"; old* 

1020 GOSUB 310 : REM TESTA PER ERRORI I/O 
1030 RETURN 

1040 REM CAMBIA IL NOME DI UN FILE 
1050 HD$="VECCHIO NOME " 

1060 GOSUB 7 10 : REM NOME DEL FILE 
1070 OLD$=NA$ 

1080 HO*="NUOVO NOME " 

1090 GOSUB 7 10 sREM NOME DEL FILE 
1100 GOSUB 420 :REM ATTENDE IL DISCO 
1110 PRINT#15,"R0:";NA*;"=“;OLD* 

1120 GOSUB 310 ! REM TESTA PER ERRORI I/O 
1130 RETURN 

1140 REM SCRIVE IL TESTO MENU' PRINCIPALE 
1150 PRINT CHR$<147>; 

1160 PRINT"_" 

1170 PRINT"CMi UTILITY DISK PER C64 & 1541 

1180 PR INT"Q- 

1190 PRINT-O <C> ED ISOFT SRL MILANO TEL: 02-2893580" 

1200 PR I NT : PR I NT " * FI 8_D IRECTOR Y__D I __UN_P I SCO 

12 10 PR INT * PR I NT " * F2 ■_FORMATTA_UN_JMUOVO_D ISCO 

1220 PR I NT : PR I NT " * F3 ■_V AL I DATE _P I JUN_J3 ISCO 

1230 PRINT:PRINT"* F4 8_CANCELLARILES__INDESIDERATI 

1240 PR I NT : PR I NT " * F5 ■_COP I A_P I _JJN_F ILE 

1250 PRINT:PRINT"* F6 8_CAMBIA_IL_NOME_DI_UN_F ILE“ 

1260 PRINT:PRINT"* F7 8_LOAD_&_RUN_UN_PROGRAMMA 

1270 PRINT:PRINT"* F8 8_FINE" 

1280 PRINTiPRINT 

1290 PRINT"DIGITA LA TUA SCELTA: "1 

1300 RETURN 

1310 REM DIRECTORY 

1320 GOSUB 420 : REM ATTENDE IL DISCO 
1330 OPEN1,8,0,"*0" 

1340 GOSUB 310 : REM TESTA PER ERRORI I/O 
1350 IF VAL<A*><>0THENCLOSE1: RETURN 
1360 GET#1,A$,B* 

1370 GET#1,A*,B* 

1380 GET# 1 ,A$,B* 

1390 GET#1,B$ 

1400 IF B$OCHR$<34> THEN GOTO 1390 

1410 PRINTCHRSC147);"*40ME DISCO:8 "I 

1420 GET#1 ,B*: IFB*< >CHR$<34)THENPRINTB$;: GOTO 1420 

1430 PRINT:PRINT 

1440 GET#1,B*:IFB$=CHR*<32>THEN1440 
1450 C$="" 

1460 C$=C$+B*:GET#1 ,B$: IFB*< >""THEN1460 
1470 PRINT"*1DENT. :■ ";LEFTSCC*,3); 

1480 PR INTTAB < 16 ) "FORMAT :■ "/MID*<C*,4) 

1490 PRINT 

1500 PRINT"*#BLK NOME FILE T1POB" 

1510 GET#1,A$,B$ 

1520 GET#1,A*,B* 

1530 C=0 

1540 IF A*<>"”THEN C=ASC<A$> 
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ISSO 

1S60 

1S70 

1S80 

1S90 

1600 

1610 

1620 

1630 

1640 

1630 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

17S0 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1930 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 


IF B*<>"”THEN C«OASC<B<>*236 
PRINTMI0<<STR<<O ,2>J 
GET#1,B<«IF ST< >0 THEN GOTO 1700 
IF B<OCHR<<34 > THEN GOTO 1370 
PRINTTAB <3 >CHR<<34 >l 

GET#1,B<«IFB« >CHR<<34 >THENPRINTB< J«GOTO 1600 
PRINT CHR«34>; 

GET#1,B<*IFB<«CHR<<32)THEN1620 
C<«■•« PRINTTAB < 24 >I 

C<-C<+B<*GET#1,B<*IFB« >" "THEN 1640 
PRINTLEFT<<C<,3> 

GETT<«IFT<*""THENGOTO1690 
IFT<--Q-THENCLOSE1 * RETURN 
GETT<*IFT« >CHR<<13)THEN1670 
IF ST*0 THEN GOTO 1310 
PRINT- BLOCCHI LIBERI.- 
CLOSE1 

GETTAIIFT« >CHR<<13)THEN1720 
RETURN 

REM SCRATCH FILES 

GOSUB 420«REM ATTENDE DISCO 

OPEN1,8,0,"<0* 

GOSUB 310 «REM TESTA ERRORI I/OR 
IF VAL<A<><>0THENCLOSE1«RETURN 
GET#1,A<,B< 

GET#1,A<,B< 

GET#1,A<,B< 

GET#1,B< 

IF B<OCHR<<34 > THEN GOTO 1820 

PRINTCHR<< 147)1 "*40I»E DISCO « ■ "J 

GET#1,B<«IFB« >CHR<<34 >THENPR INTBO«GOTO 1850 

PR INT* PR INT 

GET#1,B<«IFB<*CHR<<32>THEN1870 

c<=- • 

C<*C<*B<«GET#1,B<«IFB« >" "THEN1890 

PRINT 

IX*0 

PRINT-**BLK NOME FILE TIPO» SCRATCH»" 

GET# 1,A<,B< 

GET#1,A<,B< 

C =0 

IF AÌO--THEN C=ASC<A<> 

IF B«>"*THEN C-OASC<B<>*236 
PRINTMID<<STR<<0 ,2 )\ 

GET#1,B<« IF ST< >0 THEN GOTO 2130 
IF B« >CHR<<34 ) THEN GOTO 1990 
A<= • ■ 

GET# 1 ,B<« IFB« >CHR<<34 )THENA<*A<+B<« GOTO2020 
PRINTTAB <3)CHR<<34)IA<lCHR<<34>; 

GET#1,B<«IFB<*CHR<<32 JTHEN2040 

c<«- ■ 

C<*C<+B<«GET#1,B<«IFB<< >"“THEN2060 
PRINTTAB<24)LEFT<<C<,3);" SI'/NO" 

GETT<*IFT<* *"THENGOTO2080 
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2090 IFT9*-Q“THENG0T02130 

2100 I F T*< > - S "THENPR INTTAB <30 ) "□»«■ " 1 Q0T02 120 

2110 SC*<IX>-A*«IX*IX+1«PRINTTAB<30>"CM5I'■ 

2120 IF ST«0 THEN GOTO 1930 
2130 CL0SE1 

2140 IF 1X*0 THEN RETURN 

2130 TT*IX 

2160 PRINTCHR*<147)1 

2170 PRINT*FILES DA SCRETCHARE *" 

2180 PRINT 

2190 FOR IX«0 TO TT-1 
2200 PRINTSC*<IX> 

2210 NEXT IX 

2220 PRINT*PRINT"TOTALE ";TT f - FILES* 

2230 PRINT «PRINT-CONFERMI ? •/ 

2240 GETT**IFT*«•"THEN2240 
2230 IFT*< > *S"THENRETURN 
2260 PRINT-S1‘* 

2270 PRINT 5 PRINT"SE I SICURO ? m J 
2280 GETT*« IFT*«--THEN2280 
2290 IFT*<>"S"THEN RETURN 
2300 PRINT-SI*" 

2310 FOR IX*0 TO TT-1 

2320 PRINTJPRINT-SCRATCHING ";SC*<IX> 

2330 PRINT#13,"S0*";SC*<IX) 

2340 NEXT IX 

2330 GOSUB 310 «REM TESTA PER ERRORI I/O 
2360 PRINTtPRINT-FINE SCRATCH." 

2370 GETT**IFT*<>CHR*<13)THEN2370 
2380 RETURN 


100 REM****************** 

110 REM LISTATO N 3 
120 REM****************** 

130 REM PULIZIA DISCO 
140 REM****************** 

130 PRINTCHR*<14) 

160 POKE53280,0 « P0KE53281,0:PRINT 

170 PRINT-ULIZIA -ISCO ■i u 

180 PRINT-SHOUALE DRIVE <0-1 > ? J Wk" i 
190 GETDR**IFDR9<>"0"ANDDR*<>"1-THEN 190 
200 PRINTDR*«D=VAL<DR*> 

210 DR*="I■♦DR*«0PEN15,8,15,DR* 

220 GOSUB620 

230 OPEN1,8,3,"#*SGOSUB630 

240 PRINT ”X| “REMI fl S H PER CANCELLARE "■ PR I NT 'MI TRACCIA 18* BLOCCO 1 
250 Z**CHR*<0> 

260 T=18 * S=1 

270 print#13, -ui *-3;o;t;s 

280 PRINT#15 ,"B-P *"3/2+32*R 
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S90 GET# 1 ,A*: IFAS=" "THENA*=Z* 

300 IFASC<A<D<129THEN400 
310 FORK=5+32*RTO20+32*R 
320 PRINT#15,"B-P:"3; K 

330 GET#1,A*:IFA*=""THENPRINT"* B";sGOTO330 
340 PRINTASI 
350 NEXT 

360 PRINT'B*- DPI CANCELLARE? <S/N>B"I 
370 GETAS:IFAS<>"S“ANOA*<>"N“THEN370 
380 PRINTAS 

390 IFAS="S"THENGOSUB490 
400 R=R+1:IFR<8THEN270 
410 PRINT#15,"B-PI"310 
420 GET#1,A*:IFA*=""THENA*=ZS 

430 T=ASC<A*>!IFT=0THENPRINT:PRINT"_1NE DELLA DIRECTORY"SGOTO530 

440 PRINT#15/"B-P!"3;1 

450 GET#1,A*:IFA*=■"THENA*=Z* 

460 S=ASC<A*):PRINT:PRINT"H TRACCIA " ; :NU = T:GOSUB690:PRINTNS; 
470 PRINTTAB <20)1"! BLOCCO •; sNU=S:GOSUB690:PRINTNS;iPRINT"H” 

480 R=0:GOTO270 

490 PRINT#15 ,"B-P:"3;5+32*R-3 

500 PRINTUÌ,CHR*<0>; 

510 print# 13,"U2i"3 ;d;t;s 
520 GOSUB630:RETURN 
530 CL0SE1 

540 PRINT'XUOI LA VALIDATE DEL DISCO ? <S/N> 

550 GETVS:IFV*="S“THEN580 
560 IFV*=""THEN550 
570 CLOSE15 : END 

580 PRINTs PRI NT" JJALI DATE IN CORSO 
590 PRINT#13 , < "V "+DRS) 

600 GOSUB630 sCLOSE15 
610 END 

620 REM ********************** 

630 INPUT#15,ER,ER*,TR,SE 
640 IFER=0THENRETURN 
650 CLOSE15:CLOSE1 
660 PR I NT : PR INT" ERRORE "J 
670 PRINTERI ERSITR;SE 
680 STOP 

690 REM ********************** 

700 N$=MIDS<STRS<NU),2) 

710 IFLEN<N*X2THENN*="0"+N* 

720 RETURN 
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100 REM ********************** 

105 REM LISTATO N 4 

108 REM ********************** 

110 REM ORDINAMENTO ALFABETICO 
120 REM DIRECTORY DISCO 1541 
130 REM ********************** 

160 POKE53280,0 :P0KE53281,0 * PRINT N HHJ" 

170 PR INTCHR* < 14 ) - SM T- — ^ T “S—“H T- I ■" 

180 PRINT"*0sNSERISCI IL DISCO NEL DRIVE; PREMI *-“1 r-/+ QUANDO SEI PRO 

NTO. 

190 GETZ$:IFZS<>CHR*<13>GOTO190 
200 REM ********************** 

210 DN=8:D=0:C2=2:CC*15sT=18:S=0:BP=144 
220 OPENCC,ON,CC,“10 M :GOSUB1070 
230 0PENC2 ,DN,C2 , GOSUB 1070 
240 REM ********************** 

250 PRINTMCC,"U1:"C2;D; Tt S:GOSUB1070 

260 PRINTMCC,"B-P*"C2;BP 

270 ID*="":N=20:GOSUB1100:ID$=Z* 

280 PRINT-M-ISCO CARICATO : "ID*" " 

290 REM ********************** 

300 0IMS%<19 > 

310 DIMFT*<192) 

320 DIMTS$<192> 

330 DIMNF$<192) 

340 DIMFE*<192> 

350 DIMSKS092) 

360 DIMT$<4) 

370 T$< 1 )="SEQ" : T$<2 ) = "PRG'* *T$(3)="USR" : T*<4 ) = "REL" 

380 FORI=1TO30:Z0$=Z0*+CHR*<0):NEXT 
390 REM ********************** 

400 S=1 
410 E*1 

420 PRINT#CC,“U1:"C2;D;T;S:GOSUB1070sBP= 1 
4 30 PRINT#CC, "B-P* " ; CE ; BP : GOSUB 1 140:S>i<S>=A 
440 PRINTMCC,"B-P*"C2;BP;:GOSUB1140:FT=A 
450 IFFT=0ORFT-128THENBP *BP + 31:GOTO540 

460 IFFT< 128THENPRINT"* Sà ~ _T-“ * r r/ —^L“i s FILE NON CHI USO "* GOTO 1060 

470 FT$<E)*A$ 

480 N=2*G0SUB1110*TS»<E)*Z* 

490 N=16 :GOSUB1110:NF$ < E ) =Z $ 

500 N=11SGOSUB1110*FE*<E)=ZS 
510 REM ********************** 

520 PRINT," "NF*<E>" : "T*<FT-128> 

530 BP=BP+2:E=E*1 
540 IFBP<256GOTO440 

550 IFSX<S)< >255THENS=SX(S):GOTO420 

560 GOSUB1170 

570 E =E-1s1FE *0GOTO810 

580 PRINT"|RUPPO DI FILE NORMALI ? (SXN)" 

590 GETZ*:FT*=Z$:IFZ*="S"G0T0610 

800 IFZ*<>"N"GOTO590 

610 REM ********************* 

620 PRINT-arrO RIORDINANDO..." 

1.30 FOR I = 1TOE : K= 16 

110 FORJ = 1TO16 * IFMID$(NF*<I),J,1>=CHR*<160)THENK=J-1 *J = 16 
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630 NEXT«SK*<I)-LEFT*<I^*<I>,K) 

660 IFFT*« "Y"THENSK*< I ) -FT*< I > +SK*< I ) 

670 NEXTIM-E 

680 M*INT<M/2>«1FM-0GOTO810 
690 K-E-M* J " 0 
700 IFJ >KGOTO680 
710 I-J 

720 IF1<0GOTO740 

730 IFSK$( I ■•■M) <SK$< I )QOTO730 

740 J-J41IGOTO700 

730 fl**FT*<I)IFT*<I>«FT*<I*M>IFT*<I♦M)«8* 

760 A*=TSS<I)iTS*<I)*TS$<I *M> !TS*<I+M> 

770 ft**NF*<I> tNF*<I>*NF$<I+M>iNF*<I+M>«A* 

780 A*=FE*<I>* FE*<I)«FE*<I+M> * FE*<I*M> 

790 ft*=SK*<I)*SK$<1>*SK*<I*M>*SK*< X*M>«A* 

800 I » I-MiQOTO720 

810 REM ********************* 

820 PRiNT-arro scrivevo. * -io*- - 

830 Z$«CHRt(0)♦CHR*<253) 

840 S*1«N*1 

850 PRINTKCC,"Ul*"C2;Di Tf S*GOSUB1070 
860 BP*2 

870 IFN>EGOTO950 
880 IFBP < 256G0T0910 

890 PRINTHCC,"U2s"C2/DiT;S*GOSUB1070 

900 S*SX<S> JGOTO830 

910 PRINT#CC,"B-P**;C2;BP 

920 PRINT,* "NF*<N)■ i "T*<ASC<FT*<N>)-128) 

930 PRINT#C2,FT*<N)>TS*<N>;h«<N>;FE*<N>/ 

940 BP*BP +32 :N=N*1s GOTO870 
950 IFBP >255GOTO990 
960 PRINT#CC,“B-Pi-;C2;BP 
970 PRINT#C2, Z0$; 

980 BP®BP+32 * 6OTO950 

990 BP*0:PRINT#CC,"B-P*";C2;BP 

1000 PRINTHC2 ,Z%} 

1010 PRINT#CC , "U2 s"C2;D;T/S*GOSUB1070 
1020 Z*=LEFT*<Z0*,2> 

1030 S=S*<S>«IFS=255GOTO1060 

1040 PRINT#CC , "U1:"C2/D;T;S*GOSUB1070 

1050 BP=2 J GOTO960 

1060 CL0SEC2•CLOSECC *END 

1070 REM ******************** 

1080 INPUT#CC,EN,EM*,ET,ES:IFEN*0THENRETURN 
1090 PRINT-'OM -—r_- * A- -s*-r MB" ENI EMC; ET; ES : GOTO 1060 
1100 REM ******************** 

1110 Z 9 -“" 

1120 FOR1 = 1TON* GOSUB1140 
1130 Z*=Z*+A*:NEXTIRETURN 
1140 REM ******************** 

1150 GET#C2,fl*lIFO*»-■THENft*»CHR*<0> 

1160 A «ASC (A*ls BP-BP+1 * RETURN 
1170 REM ******************** 

1180 PRINT-BTDSSO CONTINUARE ? <S/N>* 

TI90 GETZ*: IFZ*«"N-GOTO1060 
1200 IFZ*< > *S"GOTO 1190 
1210 PRINT"□ 


□ • 1 RETURN 


100 REM ******************** 

I 10 REM LISTATO N 5 

1*0 REM ******************** 

130 REM LEGGE SEQ. DISCO 
140 REM ******************** 

150 POKE53280,0 « P0KE53281,0: PR INTCHR*< 14) 

160 0PEN15,8,15:INPUT“JH*CRIVI IL NOME DEL FILE* *;F* 

I/0 OPEN1,8,2,F$s INPUT#15,SX s IFSX< >0THENPRINT"ERRORE N. ";SX:G0T0210 
180 GET#1,A*:SS=ST: IFA*=CHR*C13)THENPRINT"«-"* GOTO200 
190 PRINTA*; 

200 IFSS=0THEN180 
210 CLOSE1 * CLOSE15 


100 REM ******************* 

1 10 REM LISTATO N 6 

120 REM ******************* 

130 REM LEGGE REL.DISCO 
140 REM ******************* 

150 POKE53280,0 :P0KE53281,0 :PRINTCHR* C14) 

160 0PEN15,8,15: INPUT" JSt/OME DEL FILE - ; F*: F*=F*+ - . REL • * LE* 1 

170 OPEN1,8,2,F*: INPUT#15,SS:IFSS< >0THENPRINT H ERRORE N."; SS :GOTO320 

180 RC**CHR*(80)+CHR*(98)+CHR*C1)+CHR*<0)+CHR*(LE):PR1NT#15,RC* 

190 INPUT#15,SS:IFSS=51THENLE=LE~2:G0T0210 
200 LE =LE+1s GOTO 180 

210 INPUT"Li-ECORD /O . <DA , A ) " ; I ,Ll I * I ♦ 1 « L*L+ 1 

220 RH=INT<1/256)* RL=I-<RH*256) 

230 RC*=CHR*<80 ) +CHR*<98 ) +CHR*(RL ) +CHR*(RH ) +CHR*(0 ) : PR INT# 15 ,RC* 

240 INPUT#15,SS:IFSS=50 THEN PRINT“-INE DEL FILE":GOTO320 
250 FORJ= ITOLE: GET# 1 ,A*: IFA*=" B THENA*=CHR*<0) 

260 IFJ=1THENIFA*=CHR*<254)THENPRINT"X/TI T":GOTO230 
270 X=ASC(A*):IFX<32THENX=X+64 
<*80 PRINTCHRS(X); : NEXTJ 
290 PRINT:FORK-1TO80 : PRINT "- H ; :NEXT K 
100 ! = I + 1 : IFI>LTHEN320 
3 ! 0 GOTO 220 
320 CLOSE1 :CLOSE15:END 


100 REM ****************** 

1 10 REM LISTATO N 7 
120 REM ****************** 

130 REM LEGGE DATABASE 
140 REM ****************** 

150 POKE53280,0 s P0KE53281,0 :PRINTCHR*<14) 

160 0PEN15,8,15:PRINT*iJl/OME DEL FILE ,-AMPO # - M ; :INPUTF*,F:P=1 
1/0 X*=F*+".KY"+RIGHT*(STR*(F*100),2):OPENl,8,2,X* 

1110 INPUT# 15,SS,SS*, A,B: IFSS< >0THENPR INTSS; SS*; A; B : GOTO340 
190 PRINT#15,CHR*<80)CHR*<98)CHR*(1)CHR*<0)CHR*<0) 
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200 GET#1,A$sIFA$=""THENA$=CHR$<0) 

210 GET#1 f B$:IFB**""THENB*=CHR*(0) 

220 GETftl,C*sIFC**""THENC*=CHR*<0) 

230 X*ASC<C*>!N*ASC<A$)+<ASC<B$)*256> 

240 D*INT<40/<X+5)> 

230 FORI*2T0N+1 *RH=INT<1/256):RL*I-<RH*256>*C*I-2 
260 PRINT#15,CHR$(80)CHR$<98 )CHR$<RL)CHR*<RH)CHR*<0) 

270 IFINT<C/D > * <C/D >THENPRINT:GOTO 290 
280 PRihrr- 

290 FORJ* 1TOX-3 t GET#1,A*!PRINTA$;sNEXT 
300 GET#1,R*:IFR*=■"THENR*=CHR*<0) 

310 GET# 1 ,S$: IFSS*""THENS*=CHR*(0) 

320 R=ASC<R$)+<ASC<S*)*256):XR$*RIGHT$<STR$<R+10000),4) 
330 PRINT"<"JXR$;")"l :NEXT 
340 CLOSE1sCLOSE15 : END 


100 REM ******************* 

110 REM LISTATO N 8 

120 REM ******************* 

130 REM LEGGE HEADER FILE 
140 REM ******************* 

150 POKE33280,0 !P0KE53281,0 *PRINTCHR$<14) 

160 DIMJ <300) 

1 7 0 0PEN15,8,15:INPUT-LA/QME DEL FILE ";N$:F =1 :0PEN4,3 :PRINT"U" 

180 PR INT#4 , "-sNIZ IO FILE 1 ";N*;".HDR* CAMPO DATI " s PR INT#4 

190 OPEN1,8,2, N$ +".HDR,S ,R "s INPUT#15, SS,SS$,A,B• IFSS >*20 THEN 290 

200 G0SUB410 : N1 =X ! GOSUB410 ! N2 = < X *256) +N1 s G0SUB410 

210 PR INT#4, "L.UNGH. DEL _ECORD *";N2;" PER";X;" CAMPI." 

220 G0SUB410:PRINT#4,"ZUMERÒ DI PAG. *";X:GOSUB410 
230 PRINT#4,"LUNGHEZZA FISICA=";X;" RECORDS “ ;sG0SUB410 
240 PRINT#4," DI“;X;" CARATTERI."sFORK = 1T05:G0SUB410 :NEXT 
250 PR INT#4,5 PR INT#4 , CAMPI SONO DEFINITI COS I ' : " 

260 PRINT#4,"s = -*«*«* = « = >:s = * = s» = = = = ««s* 

270 GOSUB410:PG=X!PRINT#4, "“ER PAG. # " ; X t PR INT#4 , •-" 

230 FORU s 1T04:G0SUB410 :NEXT!1 = 1 

290 GOSUB410:J<I)=X! 1*1 + 1 ! IFX<>0THEN290 

300 G0SUB410 s NI*XiG0SUB410 :N3=X:N2=<X*256)+N1s G0SUB410 * TP*X 
310 G0SUB410 :G0SUB410 !PN=X * IFN3=128THEN280 
320 IFPN=PGTHEN340 

330 PG=PNsPRINT#4,:PRINT#4,"“ER PAG. # " ;PNs PRINT#4,"- 

340 1*1!Q=0!PRINT#4,"-AMPO";F;"<:IFJ <I)=0THEN380 

350 IFJ<I><32THENPRINT#4,CHR*<J<1)+64);:Q=1 

360 IFJ <I)>*32THENPRINT#4,CHR$<J<I));!Q*1 

370 1*1 + 1 : IFJ<I)<>0THEN350 

380 IFQ=0THENPRINT#4,"-CONT'D-"; 

390 PRINT#4,")";" TIPO *";TP;" LUNGH. *";N2 : F*F+1 !GOTO280 
400 END 

4 J 0 GET#1,A*:SS=STs IFA*=""THENA**CHR$<0> 

420 1FSS=64THENCL0SE1:CLOSE15:END 

430 X=ASC(A$)sRETURN 

440 PRINTSS;SS$;A;B!CLOSE1 :CLOSE15 
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tee rem ******************************** 

103 REM LISTATO N 9 

IBS REM ******************************** 

MB REM ARCHIVIO RANDOM 

IPB REM ******************************** 

138 GH«53280:JK«13iJL»0:GJ=646 
MB POKEGH,JKtPOKEGH+1,JL:POKEGJ,JK 
130 SP9=“ 

160 CH9=CHR9(13):LIM9=CHR9(99)+CHR9(99)+CHR9(99) 

170 OIMD9(14):0IMY9(14)«OIM-<14) 

180 D9(1)="COGNOME: “ 

130 D9(£)*“NOME : “ 

200 D9(3>=“1ND1RIZ20: “ 

£10 D9(4)=“L0CALITA 1 : * 

220 D*C5>«"PROVINCIA: • 

£30 D9 ( B ) = "TELEFONO : ■ 

£40 D9(7)=“LUOGO NASCITA: " 

£30 09(8)=“DATA NASCITA: “ 

£60 09(9)="TITOLO DI STUDIO: " 

£70 D9(10 ) =“OCC. ATTUALE: • 

280 09(11)»“OCC. PRECEDENTE: " 

290 D9(12)«“STATO CIVILE: “ 

300 D9(13)=“NOTA 1: " 

310 09(14)«“NOTA £: " 

320 L(l)=£0iL(2)=15lL(3)=30:L(4)=£5:L(5)«4 

330 L(6)«10:L(7)=£0:L(8)=8:L(9)=£0:L(10)=£0 :L(11)=£0:L(12)=8 


340 
330 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
450 
460 
4 70 
480 
480 
300 
3 10 


L(13)=£0:L(14) 
0PEN15,8,15 
PRINT’ja 
PRINT’B * 

PR I NT “ B 
PRINT’M 
PRINT** 
PRINT“B 
PRINT“M 
INPUT"M 


=20 


a i ■ 
a 2 a. 
a 3 ■ 
a 4 ■ 
a 5 a. 
a s a. 


ARCHIVIO RANDOM DISCO 
■_INIZIO EX NOVO" 


_AGGIORNAMENTO“ 
.LISTA PRINCIPALE 


_CREAZ.INO.SECONO. 
.LISTA SECONDARIA 
_ F 


1 N E 


COSA SCEGLI"?X 
IFX(1ANDX >SANDX< >9THEN430 
PRINT:GOSUB960 
PRINT“INSERISCI DISCO DATI” 

GETR9:IFR9="“THEN470 
IFX=1THEN530 
PRINT#13,"I“ 

GOSUB860:N=K:PRINT"PRESENTI“)K1“RECORD" 

PRINT“DATA ULTIMO AGG. “;G19;IMI9J 1 


B” :PR INT 


"A 19 


320 IFX<>2THEN540 

330 PRINT"QUANTI RECORD * t : INPUT N 
340 DIMC9(N),T%(N),SX(N) 

330 IFX< >1THENGOSUB900 
360 IFX=3THEN2080 

370 ONXGOTO1010,1150,1770,1920.2010 
380 STOP 

390 REM INGRESSO DATI 
(.00 PR INT“fcJINGRESSO DATI" 

610 PRINT“PER USCIRE 9 PER COGN. SE MANC. DATI METTI 0" 


S9 








628 PRINTD*< 1 ); l IM#»UTY*< 1 ) 

638 IFY»<I>*"0"TH£MW-1IRETURN 

648 F0RJ*2T014IPRINTD*<J >1I INPUTY*<J) IMEXTJ 

638 FORJ*ITO 14IY*<J >»LEFT*<Y*<J >+SP*,UtJ))IMEXTJIRETURN 

668 REM INDICE PRINCIPALE 

678 PRINT#I3,’S0l IMCI1 *IPRINT#13,■I•IOPEN10,8,18,*IND11,S,W":GOSUB930 
688 FORJ*1TOKIPRINT#18,C*<J> I CH*; TX< J>;CH*JSX<J >ICH*IIGOSUB9301MEXTJ 
690 CLOSE101 RETURN 
700 REM RECORD E ELEM. INDICE 

710 FORJ*1TO14lPR INT#1I,Y*<J>ICH*IlG0SU6938:NEXTJI RETURN 

720 REM TRACCIA E SETTORE 

730 PRINT#15 ,"B-Al"0; Tl S 

740 IMrUT#13,EN,EMt*,ET,ES 

730 IFEN*0THEMRETURN 

760 IFEN< >63THEN930 

770 T*ETlS*ESIGOTO730 

780 REM PUNTATORE 

790 PRINT#13,"B-PI•11J1IGOSUB930lRETURN 
800 REM SCRITTURA 

810 PRINT#15,"U2*"1I;0>TISIG0SUB938IRETURN 
020 REM LETTURA 

630 PRINT#13,■I■IOPEN11,8,11,"#•IGOSUB930 
840 PRINT#13,"U1I•11 ! 0;T;S:GOSUB930iGOSUB790 

830 FORJ * 1 TO 14 I IM*>UT# I I , Y* < J > l GOSUB930 IMEXTJ : CLOSE 1 I I RETURN 
860 REM LETT. DATI DISCO 

870 OPENI1,8,11,"# " IGOSUB930lPRINT#15, a U1I"1l>0>1I0IGOSUB930 
880 GOSUB780I IM#»UT#1 1 ,R« ,K ,T ,S I GOSUB930 

890 G1**LEFT*<R*,2)I MI*«MID*<R*,3,2>IA1**RIGHTS<R*,2>ICLOSE11ITT*T:SS*SIRETURN 
900 REM LETT. INDICE 

910 OPEN10,8,10,"INDI1,S ,R "■GOSUB930 

920 FORJ* 1TOK I INPUT# 10 ,C*<J ) ,T5C<J > ,SX<J ) IGOSUB930 l NEXTJ I CLOSE 10 : RETURN 
930 IMFUT#13,EN,EM*,ET,ES 
940 IFEN-0THENRETURN 

930 PR INT "ERRORE DISCO ■ l PR INTEN,EM* ,ET,ES l CLOSE 13 IRUN 

960 REM DATA DISCO 

970 PRINT-DATA PER DISCO" 

980 IMFUT" GG ,Mf*1, AAHEHHH" ' G* ,Mt*, A#i RETURN 
990 GETR0IIFR*=*"THEN990 
1000 RETURN 

1010 REM INIZI ALIZZAZIONE DEL DISCO 

1020 PRINT"NOME DEL O ISCO " > I INPUTN»! T- 1 I S-0 

1030 PRINT#15,"N0I"+N*t",99" 

1040 CLOSE13 * OPEN13,8,131PRINT#15,"I■ 

1050 REM DATA AGGIORNAMENTO E NUM. RECORD 

1060 OPENI1,8,11,"#"IGOSUB930IGOSUB730IGOSUB790 

1070 K*0IPRINT#I1,G*+M*tA*;CH*!KJCH*)2JCH*;0;CH*I lGOSUB930 

1080 PR INT# 13 , *U2 l " 1 1;0) TI S I GOSUB9301 K * 1 ■ 14*0 t T*2 l S *0 

1090 GOSUB390 

1100 IFW*1THENK*K-1ICLOSE11IBOTO2080 

1110 GOSUB720lGOSUB780IGOSUB700lC4<K)*Y0<1)+Y*<2> 

1120 TX<K >“TlSX(K> *S * GOSUB800lK*K+1 

1130 IFK>NTHEMK*K-1lPRINT"FINITO SPAZIO ASSEGNATO■■CLOSE11IGOTO2080 

1140 GOTO 1090 

1130 REM AGGIORNAMENTO 
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1160 PR I NT " AGG I ORNAMENTO ARCHIVIO ■" 

1170 PRINT"MB 1-CORREZIONE" 

1180 PRINT"* 2-AGGIUNTA ELEM." 

1190 PRINT"* 3-CANCELL. ELEM. H 

1200 PRINT-1 9- FINE 

1210 INPUT-COSA SCEGLI";X:IFX=9THEN£080 

1220 IFX<10RX>3THEN1160 

1230 IFX=2THEN15?0 

1240 IFX=3THEN1610 

1250 REM CORREZIOhC 

1260 ^RINT-J-JDSC1>;:INPUTY*<1) 

1270 IFY*<1>="*"THEN1160 
1280 PRINTD*<2);:INPUTY*<2> 

1290 Y$C1>=LEFT*<Y$<1>+SP$,L<1)> 

1300 Y*<2>=LEFT*<Y*<£)+SP*,L<2>) 

13 10 INPUT " GUALE OCCORRER A "; X 
1320 IFX< =0THEN1310 

! 330 FOR J =1TOK: 1FC*(J)=Y*<1>♦Y*<2)THEN1370 
1340 NEXTJ 

1350 J=J-1SPRINT-NON TROVATOY$<1" ",*Y$<2> 

1360 GOSUB990:GOTO 1260 

1370 1FX< >1THENX-X-1s GOTO 1340 

1380 T=TX<J> :S=S*/.<J ) 

1390 I=J!J=K:NEXTJ 

1400 GOSUB320 

1410 Jl=lsJ2=7:GOSUB1440 

1420 Jl=8!J2=14s GOSUB1440 

1430 GOTO 1540 

1440 PRINT":F0RJ=J1T0J2:PRINTJ; h ",*D$<J>;" •;Y*<J):NEXTJ 

1450 PRINT-QUALE CAMPO<0=USCITA)" 

1460 INPUTX 

1470 IFX=0THEN1510 

1480 IFX > J20RX < J 1THENPR I NT "d3" : GOTO 1460 
1490 INPUTY*<X):Y$<X>=LEFT*(Y$<X>+SP*,L<X> > 

1500 PR I NT "CHI" : GOTO 1460 

1510 PRINT-J";:F0RJ=J1T0J2:PRINTJ;* ";D$<J>;" Y*<J>:NEXTJ 

1520 INPUT"*TUTTO BENE";X*: IFX*<>"S"THEN1450 
1530 RETURN 

1540 PRINT#15,■I"SOPEN11,8,11,:GOSUB780:GOSUB700 
1550 C*<I)*Y$<1)+Y*<2> tTA< I>=T:S%<I)=S 
1560 GOSUB800 s CLOSE11s GOTO 1250 
1570 REM AGGIUNTA 

1580 OPEN11,8,11,:GOSUB930SPRINT“AGGIUNTA"ìPRINT"PRESENTI";K;"RECORD" 

1530 PRINT"PUOI AGGIUNGERE";N-K;"RECORD"sGOSUB990 

1600 T S TTs S=SS s l*J=0 : K =K ♦ 1 : GOTO 1090 

II» 10 REM CANCELLAZIONE 

1620 PRINT"*:ANC. ELEM." ’ M=0 

1630 PRINTD*< 1); * INPUTY$<1) 

1640 IFY*C1)="$"THEN1750 
1650 PRINTD$<2>;:INPUTY$<2> 

1660 Y*<1)=LEFT$<Y*<1>+SP*,L<1)) 

1670 Y*<2>=LEFT$<Y$<2)+SPS,LC2>) 

II.80 FORJ = 1TOK s IFC*<J>=Y*<1>+Y*<2)THEN1720 
1690 NEXTJ 
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1700 

1710 

1720 

1730 

1740 

1730 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

21 10 

2120 

2130 

2140 

2150 

2160 

2 170 

2180 

2190 

2200 

2210 

2220 

2230 


PRINT"NON TROVATO";Y*<1>;" ";Y*<2> 

GOSUB990s GOTO 1630 

X=L<1)+LC2):C*<J)=LEFT*<LIM*+SP*+SP*,X) 

M*M+ 1 IT*TT.<J) «S*S%<J> 

PRINT#13,"B-F* "0;T;S:GOSUB930!GOTO 1630 

REM SIST. INDICE 

G0SUB2190 * K*K-M* GQT02120 

REM LISTA 

T*="LISTA PER INDICE PRIM." 

PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

GETR*xIFR*«""THEN1800 
PRINT"J";T*:0PEN4,4 
PRINT#4:PRINT#4 * PRINT#4,T$ 

FORJ = 1TO 10 * PR INT#4 : MlXTJ 
L s 2 s FOR 1 = 1 TOK s T=TVS< I ) :S=SX< I ) * GOSUB820 
PRINT#4,Y*<1);" ";Y*<2> 

print#4,Y*<3>;" ";y*<4>;" ";y*<5) 

FORM*6TO14 * PRINT#4,D*<M>/Y*<M)INEXTM 

PRINT#4 x PRINT#4 

IFL=5THENPRINT#4:L=0 

L=L + 1 :NEXTI 

CL0SE4 * G0T02160 

REM INO. SEC. 

PRINT"JINDICE SECONDARIO" 

INPUT" M3UALE CAMPO";X$ 

X=VAL<X*>:IFX<20RX >14THENG0T01940 
GOSUB660 

FORI*1T0KST«TX<I>JS=SX<I):GOSUB820:C*<I>=Y$<X>xNEXTI 
GOSUB1210 x GOSUB900 
PRINT"FINITO IND. SEC." 

GOTO2160 

REM LISTA INO. SEC. 

PRINT"iJ-ISTA IND. SEC." 

OPEN10,8 ,10,"INO 12,S,R"* GO3UB930 

FOR J =1TOK•INPUT#10,C*<J),T%<J>,SX<J):GOSUB930:NEXTJ 
CLOSE10 :GOSUB2320:GOSUB1210 
T$="LISTA INO. SEC." 

GOTO 1730 

REM CHIUSURA 

PRINT"CHIUSURA ARCHIVIO" 

PRINT"IND. PRINC. DA ORDIN."!INPUTR* 

IFR$="S"THENG0SUB2190 

GOSUB660s OPEN11,8,11,"#"xGOSUB930 

PRINT#15,"B-P:"11,1 

PRINT#11,g*+ms+a$;ch*;K;ch*;t;chs;s;chs;s GOSUB930 
PRINT#15,"U2 x " 1 15 0; 1 ; 0 :GOSUB930:CLOSE11 
PRINT-FINITO AGGIORNAMENTO" 

PRINT"SONO PRESENTI";K;"RECORD" 

CLOSE15:STOP 

REM ORDINAMENTO CRESCENTE 

L=K -1 

U=0 

FORJ s 1TOL 

IFC$(JX=C$(J+1 >THEN2280 
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2240 R*«C*<J> !C*<J)=C*<J+1>IC*<J+1 )=R* 
2250 X=TX<J)IT%<J>=T>:<J + 1>:TX<J+1>=X 
2260 X=SX<J>:SX<J>=SX<J+1>sSX<J+l>=X 
2270 U=1 
2280 NEXTJ 

2290 IFW=0THEM?ETURN 

2300 IFL=1THENRETURN 

2310 L=L-1IGOTO2210 

2320 REM ORO INAMENTO CRESCENTE 

2330 L=K-1 

2340 W=0 

2350 FORJ*1TOL 

2360 IFC*<J>>=C*<J+1)THEN2410 
2370 R*=C*<J> sC*CJ>=C*<J + t):C*<J + 1)=R* 
2380 X=TX<J>sTXCJ)=TX<J+l>ITX<J+1>=X 
2390 X=SX<J>ISX<J>=SX<J+1>«SX<J+1>=X 
2400 W=1 
2410 NEXTJ 

2420 IFW=0THENRETURN 
2430 IFL =1THENRETURN 
2440 L=U-1<GOTO2340 


100 REM *********.*********************** 

103 REM LISTATO N 10 

105 REM ******************************** 

I 10 REM RECUPERATORE 

120 REM DI FILE CANCELLATI 

140 REM ******************************** 

150 POKE53280,0iP0KE53281,0 

160 PR I NT " JS RECUPERO FILE K' 

170 DIM FE*<32>,TF*C5>sX*="":R*="” 

180 FOR 1=0 TO 51 READ TF*<I>:NEXT»CC=0 
190 K=0!CH=8iS=liTR=18iT=TR:DR*=“0" 

200 IN*="tfTIPO NOME FILE TR.SET.LUNG.” 

210 PRINT"* 1 ■ RECUPERO FILE CANCELLATOH” 

220 PRINT”* 2 ■ RECUPERO DI TUTTI I FILE CANCELLATI*” 

230 PRINT"* 3 9 CONVALIDA*” 

240 PRINT”* 4 * VISUALIZZAZIONE DIRECTORY*" 

250 PRINT”* 5 a CANCELLAZ IOTC F ILE*” : PR INT”* 6 a FINE*" 
260 PRINT”a*SPAZ IOB PER TORNARE AL MENU.*” 

270 PRINT "Sai:RECl/2iRECT;3iC0NV;4i0IR;5!CANC;6:EN0 BB"; 
280 GET R*:IF R*=“” THEN 280 
.•90 IF R*<”1” OR R*>”6" THEN 280 
100 R=VAL<R*>!PRINT R*iRT=0 

110 ON R GOTO 490,1110,1150,1280,1550,1720 
320 E ho : REM ************************* 

130 REM * LEGGE E STAMPA DIRECTORY ** 

140 REM ***************************** 

150 TT=ASC<FE*<1)>:SS=ASC<FE*<2>) 

160 FT=ASC<FE*<0>) AND 127 
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370 IF FT>3 THEN PRINT "TIPO ERRATO"*FT*5 
360 TF*«TF*<FT> 

390 LF-ASC<FE#<28>>♦256*ASC<FE*<29>) 

400 TT0»RIGHT*<• ■♦8TR»<TT>,3) 

410 SS*«RIGHT*<" "♦STR<<SS),3) 

420 LF*«RIGHT*<" "*STR*<LF),3) 

430 PRINT m m m TF* m M "NF*/ TAB(20)I 
440 IF SP THEN PRINT#3,"fl"TF8"B "NF*J 
430 PRINT TT0JSS0JLF* 

4B0 IF SP THEN PRINT#3,TT*/SS»;LF* 

470 RETURN 

480 REM ***************************** 

490 PRINT "RICERCA DI UN CERTO FILE" 

500 REM ***************************** 

310 GOSUB830 

320 PRINT "NOME DEL FILE DA RECUPERARE" 

330 II*»UT N08«L*LEN<N0*>«FOR K«1 TO L 

340 IF MID*<NOS,K,1)«"*" THEN L*K-1 «REMK«80 

330 NEXTK * REMIF K<80 THEN L»16 

360 NO*-LEFT*<NO*+" ",L> 

370 PRINT "STO CERCANDO *"NO* 

380 REM ****************************** 

390 REM «RICERCA FILE NELLA DIRECTORY* 

600 REM ****************************** 

610 T-TRiOPENl,8,13«PRINTUÌ,"I"+DR* 

620 S*1«0PENCH,8,CH,"#"+DR* 

630 print#i," ui«* ch/or;t;s 

640 PRINT#1,"B-Pi"CH>0«GET#CH,T*,S* 

630 FOR FE*1 TO 8 

660 GET R*«IF R8« " " THEN 780 

670 FOR CC*0 TO 31«GET#CH,X* 

680 IF X*«"" THEN X*-CHR*<0> 

690 FE0CCO-X0INEXT1NF0-" " 

700 FOR K*3 TO 18 «NF*«NF8^FE*<K>«NEXT 
710 IF ND8»LEFT*<NF*,L> THEN 1180 
720 NEXTFE 

730 IF T*»"" THEN T8«CHR8<0> 

740 IF SS-"" THEN SS-CHR*<0> 

730 T«ASC<T*>«S-ASCCSS) 

760 IF T< >0 THEN 630 

770 PRINT "*MON TROVATO«"NFS 

780 CLOSECHiCLOSE1 «CL0SE31GOTO270 

790 REM ****************************** 

800 REM ** GESTIONE ERRORI DA DISCO ** 

810 REM ****************************** 

820 INPUT#1,CE8,ER*,ET*,ESS«IF CES--00" THEN RETURN 

830 PRINT CE*,ERS,ET*lES*iGOTO780 

840 REM ****************************** 

830 REM ****** QUALE DRIVE ******** 

660 REM ****************************** 

870 PRINT-DRIVE " I DR*"«B" # « INPUT DR* 

880 IF DR*<>"0" AND DRtOM" THEN870 
890 DR-VAL CDR#) 

900 RETURN •*- 
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910 REM ****************************** 

920 REM *** SCELTA TIPO 01 FILE **» 

930 REM ****************************** 

940 PRINT" MB “DEL; 1-SEQ;2-PRG;3-USR;4-REL;3»>MENU■ 

930 INPUT"®TIPO« 2HBT' ; R i IF R<0 OR R >3 THEN950 

960 IF R-3 THEN 780 

970 PO*2+32* CFE-1)1TP*R +128 

980 PRINT#I,"U1I"CH;DR;T;S 

990 PRINT#1,"B-P1"CH;PO 

1000 PRINT#CH,CHR# < TP)1 

1010 PRINT#1,"U2 5"CHIDR; T; S 

1020 RETURN 

1030 REM ****************************** 

1040 REM ** IL FILE VA RECUPERATO ?? ** 

1030 REM ****************************** 

1060 IF MID*(hF*,1,1>=CHR*<0> THEN1240 

1070 II*>UT"*)A RECUPERARE <S/N/EM)>« NMi* ; R* 

1080 IF R*="S" THEN QOSUB920:PRINT#1,"B-P:"CH;PO+32 
1090 IF LEFT*(R#,1)*’E" THEN 1240 
1100 RETURN 

1110 REM ****************************** 

1120 PRINT "RECUPERO TUTTI I FILE’ 

1130 RT--1: GOTO 1300 

1140 REM ****************************** 

1130 PRINT "^CONVALIDA ■* ; :OOSUB830 
1 160 CL0SE1 iOPENl ,8,13sPRINT#l, "V"+OR* 

1170 GOSUB800 * GOTO780 

1180 REM ***************************** 

1190 PRINT"TROVATO IL FILE "NF* 

1200 PRINT IN* 

1210 GOSUB350 

1220 PRINT "CHE TIPO ERA 7" 

1230 GOSUB920 

1240 INPUT "CONVALIDA (S/N) SMM";R* 

1230 IF R*="S" THEN1150 
1260 GOTO780 

1270 REM ***************************** 

1280 PRINT"*/ISUALIZZAZIONE 0IRECTORY" 

1290 REM ***************************** 

1300 GOSUB830 
1310 SP=0 

1320 GOSUB1610:PRINT IN»IS=1 
1330 IF SP THEN PRINT#3,IN* 

1340 REM ************ 

1330 0PEN1,8,13sPRINT#l,”I"+DR* 

1360 0PENCH,6,CH,"#"+DR#xGOSUB800 

1370 PRINT#1,"U1*"CH;DR;T;S 

1380 PRINT#1 , "B-P: "CH;0 :GET#CH,T*,S* 

1390 FOR FE*1 TO 8 

1400 GET R*:IF R*-• " THEN1520 

1410 FOR CC=0 TO 31:GET#CH,X* 

1420 IF X*="" THEN X*=CHR*<0) 

1430 FE*(CC)=X*:NEXTiNF*="" 

1440 FOR K=3 TO 18iNF*=NF*+FE*(K)INEXT 
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1430 GOSUB330IIF RT AND <FT=>0) THEN GOSUB1040 
1460 IF FE*(3)-CHRS<0> THEN 1320 
1470 NEXTFE 

1480 IF T*» -- THEN T*«CHR*<0> 

1490 IF S*- -- THEN S*«CHR*<0> 

1300 T»ASC<T*>IS-ASC<S*> 

1310 IF T<>0 THEN 1370 
1320 IF RT THEN 1240 
1330 T-TRIGOTO780 

1340 REM **************************** 

1330 PRINT - *;ANCELLAZIONE FILE"tGOSUB850 
1360 PRINT"NOME DEL FILE DA CANCELLARE■ 

1370 INDUT R*:CLOSElIOPEN1,8,15 
1580 PRINT#1 , - S"+DR+ - :-+R* 

1390 GOSUB800 * GOTO780 

1600 REM ***************************** 

1610 REM LEGGE NONE , IOENTIF. DISCHETTO 
1620 REM ***************************** 

1630 PO=6IIF TR*18 THEN P0*144 

1640 S-0IOPEN1,8,13,"I *+OR*iGOSUB800 

1630 0PENCH,8,CH, **t* I PRINT# 1 , “Uli - CHJDR;TR;S 

1660 PRINT#l, - B-P« - )CH>POINF*= -- 

1670 FOR K*1 TO 201GET4CH,X*iNF*-NF*+X*i(EXT 

1680 PRINT DR* - - NF*iIF SP THEN PRINT43,OR* - "NF* 

1690 CLOSECHiCLOSE1iRETURN 

1700 DATA OEL,SEQ,PRG,USR,REL,XXX 

1710 REM ***************************** 

1720 PRINT TAB<18)“MF INE’iCLOSEl:CLOSECHICL0SE3:END 


100 REM ******************* 

110 REM LISTATO N 11 

120 REM ******************* 

130 REM TROVA ERRORI 1341 
140 REM ******************* 

130 CLRIPRINTCHR*<14) 

160 DIMA(4)IDIMT<4)IDIMFT(4) 

170 T<1)«1iFT<1>»17IT<2>»18iFT<2)-24iT<3>«23iFT<3>=30 :TC4)«31iFT<4>=33 
180 A<1)«20IA<2)»18IA(3)=17:A<4)=16 
190 POKE33280,0iP0KE33281,0iPRINT'LM’ 


200 PRINT - ,-,-,• 

210 PRINT*| WTROVA ERRORI 1341 SI |- 

220 PRINT - |-1 | - 

230 PRINT"| B<C) EDISOFT SRL MILANO »| - 
240 PRINT - i-1- 


230 PRINT - WKHERMO O MTHINTER -) 

260 GET V* iIFV*<> - S'ANDV*<> - P - THENGOTO260 
270 IFV*« - P - THEN 0PEN4,4 

280 PRINT - MB - lOPEN13,8,131OPEN5,8,3, - # - 
290 GOSUB 420 
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300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

400 

4 10 

420 

430 

440 

430 

460 

470 

480 

300 

304 

303 

310 

320 

330 

360 

370 

380 

390 

600 

6 10 

620 

630 

640 

630 

660 

6 70 

680 

690 

700 

710 

720 

730 

740 

730 

760 

7 70 

760 

71J0 

1100 

il 10 


FOR IM*1T04 

FOR TR«T<IM)TOFT<IM) 

FOR SE*0TOA<IM> 

TR**STR*<TR)iSE*=STR*<SE) 

TES**"B-R,3,0,*+TR*+■,■+SE* 

PRINT#15,TES* 

GET#3,Q*tG0SUB 420 

PRINT"OTRACCIA « ■ ; TR; ■ SETTORE * MT'SE 

NEXT SE,TR,IM 

IFV**"P"THENCL0SE4 

CLOSE13,3 

END 

INPUT#13,E*,S*,L*,G* 

IFE*O-00“THEN430 

RETURN 

PRINT"ERRORE « * 

printes/" "is*/" -jl- ";g*;"M" 
ifv*«"P"THENPRINT#4,e*;" "/s*;* ";l*;" ";g*;"M" 
return 


rem ******************* 

REM LISTATO N 12 
REM ******************* 

REM CREATORE DI ERRORI 
REM PER C s 64 E 1541 
REM ******************* 

CLR 

BY < 0 ) *0 
CA <0) = 1 
CN<0 > * 1 
REM 

REM ******************* 

REM PARAMETRI 
BY <2)=0 
CA <2)* 15 
CN<2)-40 
BY<3)»0 
CA <3)* 128 
CN<3)*25 
K^<0)*-a- 

FORX*0TO88:READD«M1*»M1*+CHR*<D>INEXT 
FORX*0TO67«READOIM2**M2*+CHR* < D):^XT 
OPEN15,8,15 
0PEN2,8 ,2 , “#0" 

0PEN3,8,3,"#1" 

PRINT"^"s POKE33280,0iP0KE53281,0 

PRINT-*0 CREATORE DI ERRORI 9" 

PR I NT " □-* 

S*»" READ ERROR" 

PRINT'HMHF 1 9_SELEZIONA L’ERRORE" 

PRINT"MW9M F 3 9_TRACCIA E SETTORE" 

PR INT'MIIH F 3 9_FINE DEL PROGRAMMAMI" 
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820 PRINT-M"K*<0>"20"S* 

830 PRINT"M"K*<1)"21"S* 

840 PRINT-*“K*<2)-22-S* 

830 PRINT"M"K*<3)-23"S* 

860 GETT**IFT*«-"THEN860 

870 IFT**"B"THENK$<S>=""*S=3ANOS+l*K*<S)="a" 

880 IFTS*"«"THEN910 

890 IFT*=-a-THENCL0SE13sEND 

900 GOTO760 

910 input-stracci a « - ;tr 

920 IFS*1THENSE*0:PRINT"*JA QUALE SETTORE PARTO•sGOTO940 

930 INPUT"MSETTORE"; SE 

940 print#is,"U l*"2;0 ;tr;se 

950 INPUT#15 , A,B$,C,D 

960 print"*"/a;b$;c;d 

970 IFA<>0THENPRINT"a «DISK ERROR•■I GOTO 1110 

980 PRINT#15,"B-Pi“3;0 

990 IFS=1THENPRINT#3,M2$s GOTO 1010 

1000 PRINT#3,M1* 

1010 TX=20 

1020 IFTR >17THENTX=18 
1030 IFTR >24THENTX=17 
1040 IFTR >30THENTX=16 
1050 SX-SE-1sIFSX<0THENSX*TX 

1060 MC*=-M-E-♦CHR*<3>♦CHR*(4)+CHR*CTR>+CHRSCSX > +CHR*<CA <S> >♦CHR*CCN<S))+CHR*<BY 
( 0 ) > 

1070 PRINT#15,MC* 

1080 print# 15,"Ul*-2;0 ;tr;se 

1090 INPUT#15 , A,B$,C,D 
1100 PRINT"M“; a;B$; c;o 
1110 GETT*:IFT$=""THEN1110 
1120 GOTO730 

1130 0ATA76,22,4,173,5,2,174,6,2,133,8,134,9,169,224,133,1,165,1,48,232,96 
1140 DATA32,10,245,44,0,28,16,251,32,86,243,174,8/2,172,7,2,184,80,234,136 
1150 DATA208,250,169,255,141,3,28,173,12,28,41,31,9,192,141,12,28,173,9,2,141,1 
1160 0ATA28,184,80,254,202,208,250,173,12,28,9,224,141,12,28,169,0,141,3,28,76,1 
05,249,0 

1170 DATA76,22,4,173,5,2,174,6,2,133,8,134,9,169,224,133,1,165,1,48,252 

1180 DATA96,169,235,141,3,28,173,12,28,41,31,9,192,141,12,28,169,0,141,1,28,168, 

170,80 

1130 0ATA254,232,208,251,200,208,247,173,12,28,9,224,141,12,28,169,0,141,3,28,76 
,105,249 
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6000 REM ********************* 

b004 REM LISTATO N 13 

6005 REM ********************* 

6010 REM LEGGE-SCRIVE 

6020 REM SUL BLOCCO DESIDERATO 

6040 REM ********************* 

6070 OPEN 15, 8 ,15 : 0PEN8,8,8,”#" : POKE53280,0 : P0KE5328 1 ,0 
6080 INPUT"B*L/rRACCIA, SETTORE! ";T,S 
6090 PRINT"VUO I ASCRIVERE O S-^GGERE? " 

6100 PRINT”gB< * > PER FINIRE” 

6110 GETF* 

6120 IFF*="S"THEN6160 
6130 IFF*="L”THEN6230 
6140 IFF$="*"THEN6340 
6150 GOTO6110 

61S0 PRINT“*5T0 SCRIVENDO NEL BLOCCO * ; S ” DELLA TRACCIA ";T;"H" 
6170 PRINT#15,"B-P!" ; 8; 0 

6180 FORI=0TO255:PRINT#8, * * * ; :PRINT"a'' I : NEXT ! PR INT 

6190 PRINT#15,”U2:";8;0;T;S 

6200 GOSUB6300 

6210 PRINT#15,"B-P!";8;0 

6220 FORI=0TOH55!PR1NT#8,■-*;:NEXT 

6230 PRINT"»-EGGO IL BLOCCO ";S;” DI TRACCIA “;T;"M" 

6240 PRINT#15,"U1i";8;0;T;S 
6250 GOSUB6300 
6260 PRINT#15,"B-P: ";810 
1270 FORI=0TO255 

6280 GET#8,AS>: IFA*< > " " THENPR INT ■ S" I "W'A*; 

6290 NEXT! PR I NT ! GOTO6080 
6300 INPUT#15,EN,EM*,ET,ES 
6310 IFEN=0THENRETURN 

6320 PRINT"^RROR STATUSi”EN;EM*;ET;ES ”S" 

6330 RETURN 

6340 0PEN1,8,15,"U+ 

150 SYS64738 


1000 REM****************** 

1010 REM LISTATO N 14 

1011 REM ****************** 

1012 REM TEST ERRORE 

1013 REM ****************** 

1020 O*=“0" 

1090 0PEN15,8,15,"I"+D* 

1040 OPEN 2,8,2,"#" 

1050 T=35 !S=12 : REM 

101.0 PR INT# 15 , "U 1 !2, "D*;T;S!GOSUB1080 
10/0 CL0SE2!CLOSE15 ! END 

1080 INPUT#15,EN,EMS,ET,ES:IF EN=0 THEN PRINT”OK!”iRETURN 
1090 PRINT"aPISK ERRORS”EN,EM*,ET,ES 
I 100 1FEN=23THENPOKE53280,0 : REM 
1110 RETURN 
I I 20 E140 
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2000 

2010 

2020 

2030 

2040 

2070 

2080 

2090 

2100 

21 10 

2 120 

2130 

2140 

2150 

2160 

2170 

2 180 

2190 

2200 

2210 

2220 

3000 

3010 

3020 

3030 

3040 

3070 

3080 

3090 

3100 

31 10 

3120 

3130 

3 140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


REM ****************** 

REM LISTATO N 14 A 
REM ****************** 

REM TEST DIRECTORY 
REM ****************** 

0PEN2,8,15 
PRINT-U" 

OPEN1,8,0,"<0 M 
GET#1,A<,B< 

GET#1,A<,B< 

GET#1,A<,B< 

C =0 

IF A«>"“ THEN C=ASC<A<> 

IF B<< > M " THEN C=C+ASC<B<)*256 
PRINTMID<<STR<<O ,2>;TAB<3>; 

GET#1,BCIF ST<>0 THEN 1000 
IF B<OCHR<<34 ) THEN 2170 

GET# 1 ,B<: IF B« >CHR<<34 )THEN PRINTB<;:N<=N<+B<sG0T02190 
GET#1,B<s IF B< = CHR<<32> THEN 2200 
C<=C$+BC6ET#1,B$:IF B« > " " THEN 2210 

PR INTCC CLOSE 1 : CL0SE2 : REM* * IF C« >NOME ORIGINALE DISTRUGGI IL PROGRAMMA!!! 


REM ****************** 

REM LISTATO N 15 

REM ****************** 

REM TEST NOTCH 

REM ****************** 

D<="0" 

CLOSE15 s OPEN15,8,15 
CL0SE2 * 0PEN2,8,2,"# M 
PRINT#15, H U2 * 2,"D<; 18; 18 
INPUT#15,EN,EM<,ET,ES 
IF EN*0 THEN 3220 
IFEN<>26THEN3220 
PRINT#15,"U+ 

POKE53280,0 s POKE53281 ,0 :PRINTCHR<<14) 

PR INT «JESTO PROGRAMMA NON FUNZIONA SE IL" 

PRINT" DISCO E' STATO PROTETTO CON UNA LIN -M 
PRINT" GUETTA ADESIVA!!! ai |OGLILA ! ! ! B H 

rn HIT 1111111 1 111 11 — “REMI UN TASTO PER CONTINUARE ■" 

GETA<iIFA<=""THEN3200 

GOTO3070 

CL0SE2:CLOSE15 

PPINTEN,EM<,ET,ES 

END 
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4000 REM ***************** 
4010 REM LISTATI N 16 
4020 REM ***************** 
4030 REM DESTROY 1.0 


4040 REM ***************** 

4050 POKE808,225 • P0KE775,200 
4060 PRINTCHR*<14) 

4070 OPEN1,8,15,"N0:NO COPY.»! 

4080 CLOSE1 


4090 
4 100 
4 110 
1 120 
4 ! 30 
4 140 
4 150 
4 160 
4 I 70 
1 180 
4 190 
4,-00 
42 10 
4, 20 
4230 
4240 
12*0 
4260 
42 70 
4280 
1290 

4 (00 
4 U0 
1 <20 


PRINT-L* 


POKE53280,0 :POKE53281,0 

PRINT"a *TTENOI QUALCHE SECONDO MENTRE CARICO 
SAVE 

SAVE"-" ,8 

SAVE"QUESTO PROGRAMMA",8 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 


- H Q 

" ,8 

CQUI VENGONO ",8 
SCRITTE PAROLE ",8 
IMPRONUNCIAB ILI",8 
A VOSTRA ",8 

DISCREZIONE)",8 
SAVE"AH AH AH AH ! !» !" ,8 
OPEN1,8,15,"V0" 

CLOSE1 

PRINTCHR*< 14):POKE53280,0 s P0KE53281,0 

PRINT'JBM -I HAI PROVATO, E STAVOLTA TI E * ANDATA" 
PRINT°0 MOLTO MALE. 

p r int " a————MMn aa 


- •% r 


111 


FORI=0TO3000:NEXTI 
PRINT" : PR INT*m 
SYS64739 


#STA I PIU* ATTENTO! 


10 REM ******************************** 


20 REM 


LISTATO N 17 


>0 REM ******************************** 

'IO REM COPIA NASTRO-01 SCO 

50 REM ******************************** 

«41 PR INT"U" : P0KE56,40 : CLR 

/0 POKE53280,7 :P0KE53281,7:P0KE646,6 

00 Y1=5280 s Y2 = Y1+20 

*»0 IH =8:SP=1309»SB=10240 

100 BL*=" 

110 BL$=BL$+ "HUMBBM" 

120 PRINT"J 
I 10 PRINT"* 

140 PRINT"| 

I 50 PRINT" »- 

I *»0 PRINT" ,—^STRACCIA SETTORE 


COPIA NASTRO-DISCO 
OPIA FILE DA NASTRO*— 
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17B print" i 

180 PRINT" l- 

190 PRINT" r-WISCOB- 

200 PRINT"| 

210 PRINT"*- 

220 PRINT" i—B05TATUS DEL DISCO 
230 PRINT"| 

240 PRINT" l- 

230 PRINT" BESECUZ IONE*»- 

260 PRINT"| 

270 PRINT" I- 

280 PRINT" i—««INTERVENTO DELL 1 OPERATORE*»-,* 

290 PRINT" | | . 

300 PRINT" I- i- 

310 PR INT”«M<C> EDISOFT SRL - MILANO - *»■ 

320 OP*«"’IGOSUB640lOP*»'INSERISCI IL NOME DEL DISCO ■ 

330 GOSUB670lOP<*"OESTINAZIONEi•> GOSUB660:LN*16 s DN*11t RT*17 * GOSUB530 
340 LN»2IRT«33IIFB**""THEhB*="COPIA N-D•lOP#-OP*»■ •+B*>GOSUB660 

330 DN**B*IPRINT"□"SPC(34>","lOP*="NUMERO DELL■ID DEL DISCO■lGOSUB670 
360 GOSUB330iOI♦*""l IFB*< >■"THEND I*=■,"+B* 

370 PR1NT"Q"SPC(33)B$lPOKE198,0 

380 BC*=*INSERISCI IL DISCO-DESTINAZIONE"* GOSUB870 

390 GOSUB700!OP*="FORMATTO IL DISCO-DESTINAZIONE *iGOSUB640 

400 0PENI3,DI,15 * INPUT413,EN*,ED*,ET,ES*1 IFEN**"00"THEN420 

410 CLOSE13lOP**""lGOSUB640:GOSUB680IOP»="•lGOTO320 

420 N*-"N0:"+DN»+DI*!PRINT#13,N*iIN»UT#13,EN*,ED*,ET*,ES* 

430 GOSUB680I IFEN*< >"00"THEN:OP*=”"iGOSUB640:GOTO320 
440 OP*="PREMI PLAY SUL REGISTRATORE"iGOSUB670 
430 SYS<Y2>:OP*=’":GOSUB670 
460 SB=256 4PEEK (829)+PEEK <828) 

470 EB=256 *PEEK <831> +PEEK <830) 

480 SN*="":F0RA*833T0848:SN*=SN*+CHR*(PEEK(A >):NEXT 

490 OP*=SN*>GOSUB650 

300 GOSUB740IIF<TR+SC)THEN430 

510 OP*="COPIA ULTIMATA"!GOSUB640iOP*«■•:GOSUB700:GOSUB650s GOSUB660 
320 BC*="TOGLI IL DISCO DAL DRIVE"* P0KE56,160lGOSUB870:GOTO60 
330 69* " * : PR INTLEFT*< ^DN)SPC (RT> " 

340 PRINT’Bi"; :F0RA<=1T055:GETA*! IFA*< >""THEN560 

330 NEXT ! PR I NT "Il " ; : FORA = 1 T055 I I FA*= • "THENNEXT: GOTO540 

560 IFASC(A*> = 13THEI*>RINT“B ": RETURN 

570 IFASC(A*>=133THEN60 

380 IFASC(A*><>20THEN610 

590 IFLEN(B*)=0THEt\NEXTiGOTO540 

600 B*=LEFT*<B* / LEN<B*)-1)1PRINT“|| Hi "SIGOTO540 
610 IFA*<" "ORA*>“Z"THENNEXT!GOTO340 
620 IFLEN<B*XLNTHENB*=B*+A*IPRINT“B"A*"||’> l GOTO340 
630 NEXTIGOTO540 

640 PRiNT-anaaHaaHMaaaai"BL*op *:return 

630 PRINT"BBBBi"BL*OP*: RETURN 

660 PRINT"*aaaBBMMai"BL«OP*: RETURN 

670 PRiNT"BM*aaaaaaaaaaBH»aai"BL«op*:RETURN 

680 CLOSE2!CLOSE15 !OP**EN»+", "*ED*+“,"*ET»+","+ES* 

690 PRINT"|»BaMBaMMaaH"BL«OP«:RETURN 
700 PRiNT"jaaaaaaaaaaaMM"BL«:RETURN 
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7 10 Z = INTCTR/10 ) : POKESP , Z *48 :Z = TR- 10*2 s POKESP+1 ,Z+48 
720 Z * INT<SC/10 ) * POKESP ♦ 7 , Z +48 * Z =SC- 10*Z : POKESP+8 ,Z ■•■48 
730 RETURN 

740 OP$*"LEGGO I DATI DAL BUFFERGOSUB640 
7-50 BP=SB * OPEN 15 ,D I , 13:0PEN2,DI ,2, "#" 

760 IFBP> =EBTHENCLOSE15 * CL0SE2: RETURN 

770 TR=PEEK<BP)*SC»PEEK<BP+1)«IFTR=18ANDSC=0THEN830 

780 IF < TR-0ANDSC =0)THENCL0SE2* CLOSE13 s RETURN 

790 PRINT#13,"B-Ps "2; 0 : BP =BP+2 : H I » INT < BP/256 > i LO =BP - <H I *236 > * POKE Y1+8 ,LO 
600 POKEY1 +9 ,H I * G0SUB7 10 s SYS < Y1 ) : INPUT# 15 ,EN$,ED$,ET$,ESS> 

610 IFENX > “00 "THEN9 10 

820 PR INT# 15 , "U2";2;0;TR;SC*BP=BP+256:GOTO760 
6 30 DN*=DN*+ " 

840 FORA=0TO15 s POKE <BP+146+A),ASCCMIDSCDN*,A+1,1)>:NEXT 
630 IFOI$=""THEN790 

860 FORA*0TO1 :POKE <BP♦164*A),ASC<MID*<DI*,2+A,1>)!NEXT:GOTO790 
H 70 OP*=BCS:GOSUB670: FORA =1T075 s GETA* 

660 IFA*=" "THENrsEXT:OP$=" ":GOSUB670 SFORA =1T075:GETA*: IFA*=" "THENNEXT : GOTO870 
690 OP*="• : GOSUB670: IFA*< > M *"THENRETURN 
900 GOTO60 

910 GOSUB680:OP*="COPIA INCOMPLETA - RICOMINCIA DACCAPO M :GOSUB640 
920 GOSUB640:BC$="ERRORE DEL DISCO ILLEGGIBILE":GOSUB870:GOTO60 


10 REM ******************************** 

20 REM LISTATO N 18 

10 REM ******************************** 

40 REM COPIA DISCO-NASTRO 

30 REM ******************************** 

60 PRINT-J":POKE56,40:CLR 
70 POKE53280,6 * P0KE33281,6:P0KE646,1 
60 Y1=6400iY2*Y1+20 * Y3*Y1*36 

90 DI=8 * SP»1309 :SB=10240 :BP=SB:EB=SB+64*258:FC=0 

100 BL$=" ■■UHHHMHUinHIlUHIB 

I 10 BL*=BL*+ IMIM’ : D IMBM*< 140) ,C<35 > : FORA»1T033:READC<A):NEXT:GOSUB1070 
120 DATA21/21,21,21,21,21,21,21,21,21,21,21 


I 30 DATA21,21,21,21,21,19,19,19,19,19/19,19,18,18 
140 PRINT-fcJBl COPIA DA DISCO A NASTRO 

130 PRINT" —* r-nCOMANDO DI COPIA»- 

160 PRINT"| 

170 PRINT* l- 


18,18,18,18,17,17,17,17,17 


100 PR INT" i—HTRACC IA SETTORE! 
190 PRINT"I 

#00 PRINT" i- 

#10 PRINT" r-IDISCO»- 

#20 PRINT"| 

# 10 PRINT" «- 

#40 PRINT" 

#30 PRINT"| 

#60 PRINT" »- 
#70 PRINT" 


TATUS DEL DISCO! 


SECUZIONE! 
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I 


280 PRINT"| 

290 PRINT" «- 

300 PR I NT " r-OJINTER VENTO DELL'OPERATORE! 

310 PRINT"| |- 

320 PRINT* «--i - 

330 PRINT"M|<C) EDISOFT SRL - MILANO - HI" 

340 OP*="CODICE DI OPERAZIONE DEL PROGR. *t GOSUB1030 : LN=1 * DN=5:RT*1 

350 GOSUB890 : IFB$*""THENB**"B" 

360 PO=ASC<B$>*IFB$="D“THENOP$="COPIA DIRETTA"*GOTO390 

370 IFB*< > "B"THEN340 

380 OP*="BAM COPIA SELEZIONATA" 

390 GOSUB1010 :OP$ s " " *GOSUB1000 
400 POKE198,0 

4 10 BC*="METTI IL DISCO SORGENTE NEL OR IVE":GOSUB1250 
420 OP$="LETTURA BAM DAL DISCO SORGENTE"sGOSUB1000 

430 OPEN15,0I,15 s 0PEN2 ,DI,2,"# " : PR INT# 15 ,"U1";2;0;18;0:PRINT#15, "B-P: "2 
440 FORA*ITO 140 :GET#2,A$: IFA$=""THENA$=CHR$<0) 

450 BM*<A)=AS:NEXT: IfsFUT#15 ,ENS,ED*,ETS,ES$: 1FENS< >"00"THEN1290 
460 PRINT#15,"B-P";2; 144:SNS="": FORA*1TO20:GET#2,A$:SN$ = SN$«-A$:NEXT 
470 FORA*ITO 12 : P0KEY2+A+1,ASC<MID*<SN$,A,1)):NEXT 
480 P0KEY2-H4 , ASC <MIO$<SN$, 19,1)) 

490 P0KEY2+15,ASC <RIGHT$<SN$,1)) 

500 CL0SE2:CLOSE15 :SN**LEFT$(SN*,16)-*■-,*+RIGHT$(SN*,2) 

510 OP$*"SORG. s "+SN* 

520 GOSUB1020s0P$*""«GOSUB1000 

530 BC*="VERIFICA IL DISCO SORGENTE ":GOSUB1250 
540 IFA*<>"N"THEN560 

550 OPt= M ":GOSUB1000:GOSUB1020 :GOSUB1060 :G0T0410 
560 0P$="LEGGE I DATA NEL BUFFERGOSUB1000 
570 IFPO=68THENFORA=1TO140:BM*<A)=CHR$<0 >iNEXT 
580 OPEN15,DI,15 :0PEN2,DI,2,"#" 

590 FORTC* 1TO140STEP4: IFC< < <TC-1)/4+l)+0>=ASC<BM*<TC))THEN840 
600 TR*<TC-1)/4+1:BY=255-ASC<BM*<TC+1)) 

610 IFBYAND128THENSC=7sGOSUB1110 
620 IFBYAND64THENSC=6:GOSUB1110 
630 IFBYAND32THENSC=5:GOSUB1110 
640 IFBYAND16THENSC*4:GOSUB1110 
650 IFBYAND8THENSC=3:GOSUB1110 
660 IFBYAND4THENSC=2sGOSUB1110 
670 IFBYAND2THENSC*1:GOSUB1110 
680 IFBYAND1THENSC=0:GOSUB1110 
690 BY=255-ASC(BMS<TC*2)) 

700 IFBYAND128THENSC*15:GOSUB1110 
710 IFBYAND64THENSC*14 :GOSUB1110 
720 IFBYAND32THENSC*13 * GOSUB1110 
730 IFBYAND16THENSC*12:GOSUB1110 
740 IFBYAND8THENSC*11 :GOSUB1110 
750 IFBYAND4THENSC*10 :GOSUB1110 
760 IFBYAND2THENSC=9:GOSUB1110 
770 IFBYAND1THENSC=8:GOSUB1110 
780 BY=255-ASC<BM*<TC+3)) 

790 IF<BYAND16)ANDC(TR)>20THENSC=20:GOSUB1110 
800 IF «CBYAND8 ) ANDC <TR ) > 19THENSC* 19 : GOSUB 1 1 10 
810 IF CBYAND4)ANDC <TR)>18THENSC=18 :GOSUB1110 
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«*20 IF CBYAND2 ) AM3C < TR > > 17THENSC* 17 : GOSUB 1 1 10 
H «0 IF(BYAND1) ANDC < TR) > 16THENSC»16 :GOSUB1110 
1*40 NEXT * CL0SE2 * CLOSE 15 * 0P$*= " " : GOSUB 1000 

"10 POKEBP,0 s POKEBP+1,0ìBP=BP+2*HI = INT<BP/256):LO=BP-<HI*236) 

M60 POKE174, LO s POKE175,H I :GOSUB1200 

B70 OP$*"COPIA ULTIMATA"xGOSUB1000 :OP*»"":GOSUB1060xGOSUB1010sGOSUB1020 
*«B0 BC*="TOGLI IL DISCO DAL OR I VE " X POKE 56,160 * GOSUB 1230 : GOTO60 
HH0 B*=" "XPRINTLEFTSC ‘ MMMMMMM — .nNìqpcfPT) - 
•00 PRINT-MT ; s FORA»1T055 x GETAS: IFA*< >""THEN920 
'M0 NEXT:PRINT M B "; : FORA®1T055 x IFA$ =""THENNEXT x GOTO900 
'«20 IFASC <A$) * 13THENPR INT"|| "i RETURN 
• *0 IFASC<A*>=133THEN60 
•40 IFASC(A*)< >20THEN970 
»50 IFLEN<BS) =0THENNEXTx GOTO900 

-*60 BS=LEFT$<BS,LEN(B*>-1)xpRINT“H Mi ";xGOTO900 
1/0 IFA*<" "ORA*>"Z"THENNEXT:GOTO900 

•00 IFLEN<B$) <LNTHENB$=B$+A$: PR INT"B"A$“U" r * GOTO900 
*•‘ *0 NEXT : GOTO900 

1000 pr int u mMHmnni0i M bl$op$>return 

m 10 PR INT"MHM h BL$OP$3 RETURN 

1020 PR 1 NT " ———I "BL*OP* : RETURN 

in30 »■ — — 

1040 CL0SE2XCLOSE15 :OP*=EN*+", "+ ED* +","+ET*+","+ES$ 

1 0*10 PRINT > iflMÌnMnil M BL$OP$iRETURN 
1060 PR INT" ——1 —— " pt ptr ~ ri IDKI 

I0 70 FORA =SBTOEBSTEP258xPOKEA,0 :POKEA +1,0 xNEXT:BP =SB! RETURN 
1080 Z *INT<TR/10):POKESP,Z +48 :Z =TR-10*Z:POKESP♦1,Z+48 
1090 Z » INT<SC/10)x POKESP+7,Z +48 x Z =SC~10*Z xPOKESP+8,Z +48 
I 100 RETURN 

1110 PR INT# 15 , "U1 x "2; 0; TR; SC x PR INT# 15 , "B-PS "2;0 

I 120 POKEBP,TR xPOKEBP♦1,SC x BP =BP+2* HI = INT(BP/256)x LO=BP-(HI«256)XPOKEY1+11,LO 
1 130 POKEY1 + 12,HI :GOSUB1080 x SYS <Y1> x INPUT#15,EN$,ED*,ET*,ES* 

1140 IFEN$< >"00"THEN1290 

I 150 BP=BP+256 x IFBP +256<EBTHENRETURN 

1180 POKE174,LO x POKE175,H I + 1 

I I 20 CLOSE2ICLOSE15 

1180 GOSUB12001GOSUB1070 

I 190 0PEN15,DI,15x 0PEN2,DI,2, , #"lRETURN 

1200 IFBC»0THENOPS»"PREMI RECORD & PLAY SUL REGISTR."x GOSUB1030 x BC»1 
1210 P0KEY2+1,FC+48xFC=FC+l 

1220 HI = INT <Y2/256 > * L0*Y2-CHI*256)x POKE187,LO * POKE188,H I 
12 »0 Hl-INT<SB/256>xLO=SB-<HI*256>xPOKE172,LOxPOKE173,HI 
1 . 40 SYS < Y3 > s OP$= " " x GOSUB 1030! RETURN 
li*50 OP*»BC*x GOSUB1030 x FORA» 1T075 * GETA* 

1260 IFA# =""THENNEXTx OP$=""x GOSUB1030 s FORA=1T075 * GETA$x IFA*=""THENNEXTxGOTO 1250 
12/0 OP*«*":GOSUB10301 IFA*< >"«"THENRETURN 
I2B0 GOTO60 

1290 GOSUB1040!OP*="COPIA INCOMPLETA - RICOMINCIA DA CAPO"xGOSUB1000 
I 100 GOSUB1000 x BC$»"ERRORE SUL DISCO ILLEGGIBILEGOSUB1250lGOTO60 
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100 
103 
10S 
1 10 
120 
130 
140 
130 
160 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
430 
460 
470 
480 
490 
300 
310 
520 
530 
540 
330 
360 
370 
580 
390 
600 
610 
620 
630 
640 
630 
660 
670 


REM *********************************** 

REM LISTATO N 19 

REM *********************************** 

REM ISTRUZIONI 

REM SALVARE IL PROGRAMMA 

REM DARE 'POKE 44,24' 

REM 'POKE 6144,0' 

REM RICARICARE IL PROGR. E DARE RUN 

REM *********************************** 
CLRIPOKE33280,81POKE33281,8 :PRINTCHR*<14?)CHR*(144) 

pRiNT*aaaaMaaaaHBriTTENDERE qualche istante, prego...* 

FORA 1=43152T049187 : READB1 « C1=C1+81IPOKEA 1,B11NEXT 
IFC1=4646THEN320 * REM CHECKSUM DI ROUTINE SAVE DATA 
PRINTCHR*<147)* «ERRORE NELLE ISTRUZIONI DATA.* 

PRINT * VER IFICARE NUMERI DI LINEA 680-790"«ENO 
FORA2=2049TO4657IREADB2 «C2*C2 + B2«P0KEA2,B2 «NEXT 
IFC2 =229312THEN360 « REM CHECKSUM PER I DATA DEL PROGRAMMA 
PRINTCHR*<147)'BERRORE NELLE ISTRUZIONI DATA." 

PRINT*VERIFICARE NUMERI DI LINEA 1000-*t«*"iEND 
PRINTCHR*(147)* I DATI SONO STATI CARICATI." 

PRINT"POSSIAMO PROCEDERE ALLA REGISTRAZIONE* 

PRINT"OEL PROGRAMMA FINALE.»* 

INPUT"SALVO SU NASTRO O DISCO <N/D)"JDV* 

IFDV*="N'THENK 1 = 1 « GOTO430 
IFDV*="D"THENK 1=8 « GOTO430 
GOTO390 

PRINT"»INSERISCI IL SUPPORTO MAGNETICO" 

PRINT"NELL'APPOSITO DISPOSITIVO DI SCRITTURA." 
PRINT"»»REMI LO SPAZIO QUANDO VUOI PARTIRE." 

GETA*«IFA*=""THEN460 
IFA*=" "THEN490 
GOTO460 

NM*="23-COPYFILE 1.1■«PRINTCHR*<17) 

IFCK l=8)ANO<NM*="")THENNW*="-EDISOFT-" 

K2=LEN<NMS)! IFK2 >16THENK2»16 
FORX=0TOK2-1«K*=MID*<NM*+CHR*C0),X+1,1) 

K3=ASC<K*) 

P0KE49188+X,K3 « REM SCRIVE NONE DEL FILE 
NEXT X 

P0KE49153,K1«REM NUMERO PERIFERICA 
P0KE49162,K2«REM LUNGH.NONE FILE 
P0KE49171,01«REM INIZIO BYTE BASSO 
P0KE49175,08 « REM INIZIO BYTE ALTO 
POKE49181,16 « REM FINE BYTE BASSO 
POKE49183,1l« REM FINE BYTE ALTO 
SYS49132 

FORZ=0TO2000« NEXT 

POKE53280,0 « P0KE53281,0«PRINTCHR*<147)CHR*(129) 

PRINTCHR*<17)CHR*<17)"IL PROGRAMMA E' STATO CORRETTANENTE" 
PRINT*REGISTRATO COL NOME "CHR*<30)LEFT*CNM*,16) 

FORZ-0TO3000: NEXT « SYS64738 
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680 OftTfl 169, 

1 , 162 



1400 

DATA 

4, 

32, 

165, 

255, 

136 

690 DATA 

8 , 160, 

1 



1410 

DATA 

208, 

250, 

32, 

165, 

255 

700 DATA 

32 , 186/ 255 



1420 

DATA 

133, 

34, 

32, 

165, 

255 

710 DATA 169, 

5, 162 



1430 

DATA 

166, 

34, 

32, 

205, 

189 

720 DATA 

36, 160, 198 



1440 

DATA 

32, 

33, 

15, 

32, 

165 

730 DATA 

38, 189, 833 



1450 

DATA 

255, 

240, 

6 , 

32, 

210 

740 DATA 169, 

1 , 133 



1460 

DATA 

255, 

24, 

144, 

245, 

32 

730 DATA 831, 169, 

8 



1470 

DATA 

36, 

15, 

32, 

36, 

15 

760 DATA 133, 852, 169 



1480 

DATA 

32, 

165, 

255, 

32, 

165 

770 DATA 831, 168, 

4 



1490 

DATA 

255 , 

160, 

0 , 

132, 

251 

780 DATA 160, 

n. 

32 



1500 

DATA 

32, 

165, 

255, 

133, 

252 

790 DATA 816, 835, 

96 



1510 

DATA 

32, 

165, 

255, 

133, 

253 

B30 REM ****************** 


1520 

DATA 

166, 

252, 

32, 

205, 

189 

830 REM DATA DEL PROGRAMMA 


1530 

DATA 

32, 

33, 

15, 

160, 

0 

370 REM ****************** 


1540 

DATA 

32, 

165, 

255, 

72, 

32 

1000 

DATA 

1 1 , 

8 , 

193, 

77 

158 

1550 

DATA 

41, 

15, 

104 , 

153, 

64 

1010 

DATA 

50 , 

48, 

54, 

52, 

0 

1560 

DATA 

3, 

240, 

3, 

200 , 

208 

1020 
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DATA 
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DATA 
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DATA 

38, 

77 

15, 

201 , 

49 

1610 

DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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1 140 

DATA 
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DATA 
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DATA 
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DATA 
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208 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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DATA 
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15 
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DATA 
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32 
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DATA 

855, 
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DATA 
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252, 
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DATA 
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255 
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DATA 
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208 
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DATA 
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16 

1840 

DATA 

10 , 
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100 , 

160, 

17 
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DATA 

8 , 

32, 
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229, 

32 
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DATA 

32, 

30, 

171, 

76, 

202 
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DATA 

0 , 
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38, 

7 , 

15 
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DATA 

9, 

201 , 

83, 

240, 

7 

1320 

DATA 

38, 
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32, 

36 

1870 

DATA 

201 , 

80, 

240 , 

3, 

232 

1330 

DATA 

15, 

32, 
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15, 

169 

1880 

DATA 

208 , 

230, 

153, 

64, 

18 

1340 

DATA 

8 , 

170, 

160, 

0 , 

32 
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DATA 

230, 

251 , 
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144, 
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DATA 
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255 , 

169, 
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DATA 

169, 
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160, 
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32 
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DATA 
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32, 

189 

1910 

DATA 
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15 
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DATA 

855, 
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198, 

255, 

169 

1920 

DATA 

76, 

25 1 , 

8 , 

169, 
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DATA 

8 , 

32, 

180, 

255, 

169 

1930 

DATA 

32, 

195 , 

255, 

165, 

251 

1390 

DATA 

0 , 

32, 

150, 

255, 

160 

1940 

DATA 

208, 

3, 

76, 

16, 

8 
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1950 

DATA 

169/ 157, 

160, 17, 

32 

2500 

DATA 

32, 

8 , 13, 166, 

144 

1960 

DATA 

30, 171, 

32, 79, 

15 

2510 

DATA 

240, 

246, 32, 89, 

15 

1970 

DATA 

201, 49, 

240, 7, 

201 

2520 

DATA 

8 , 

169, 2, 32, 

195 

1980 

DATA 

50, 208, 

245, 169, 

0 

2530 

DATA 

255, 

173, 17, 208, 

9 

1990 

DATA 

44, 169, 

255, 133, 

254 

2540 

DATA 

16, 

141, 17, 208, 

40 

2000 

DATA 

169, 15, 

32, 195, 

255 

2550 

DATA 

144 , 

3, 32, 96 , 

13 

20 10 

DATA 

169, 0, 

160, 14, 

32 

2560 

DATA 

166, 

252, 165, 34, 

157 

2020 

DATA 

30, 171, 

32, 79 , 

15 

2570 

DATA 

160, 

18, 165, 35, 

157 

2090 

DATA 

201, 51, 

240, 47, 

201 

2580 

DATA 

128, 

18, 232, 228, 

251 

2040 

DATA 

50, 240, 

20 , 201, 

49 

2590 

DATA 

176, 

38, 24, 125, 

192 

2050 

DATA 

208, 241, 

169, 96, 
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2600 

DATA 

18, 

176, 32, 201, 

234 

2060 

DATA 

149, 8, 

32, 59, 
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2610 

DATA 

176, 

28, 230, 252, 

230 

2070 

DATA 

169, 76, 

141, 149, 

8 

2620 

DATA 

253, 

165, 35, 24, 

105 

2080 

DATA 

76, 245, 

9, 169, 

86 

2630 

DATA 

1 , 

157, 96, 18, 

173 

2090 

DATA 

141, 246, 

16, 169, 

147 

2640 

DATA 

17, 

208, 41, 239, 

141 

2100 

DATA 

160, 14, 

32, 30, 

171 

2650 

DATA 

17, 

208, 169, 15, 

32 

21 10 

DATA 

32, 13, 

15, 169, 

73 

2660 

DATA 

195, 

255, 76, 81, 

10 

2120 

DATA 

141, 246, 

16, 76, 

245 

2670 

DATA 

165, 

252, 56, 229, 

253 

2130 

DATA 

9, 162, 

0, 134, 

252 

2680 

DATA 

133, 

252, 169, 106, 

160 

2140 

DATA 

169, 22, 

157, 96, 

18 

2690 

DATA 

14, 

32, 30, 171, 

32 

2150 

DATA 

169, 0, 

133, 253, 

138 

2700 

DATA 

79, 

15, 169, 164, 

160 

2160 

DATA 

240, 10, 

169, 250, 

160 

2710 

DATA 

14, 

32, 30, 171, 

164 

2170 

DATA 

16, 32, 

30 , 171, 

32 

2720 

DATA 

252 , 

190, 32, 18, 
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2180 

DATA 

79, 15, 

169, 175, 

160 

2730 

DATA 

252, 

32, 176, 12, 

234 
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DATA 

14, 32, 

30, 171, 
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2740 

DATA 
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65, 234, 32, 

210 

2200 

DATA 

252, 190, 

32, 18, 
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2750 

DATA 

255 , 
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246 

2210 

DATA 

252, 32 , 

176, 12, 

234 

2760 

DATA 

169, 

2 , 162, 8, 

168 

2220 

DATA 
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234, 32, 

2 10 

2770 

DATA 

32, 

186, 255, 166, 
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2230 

DATA 

255, 200, 

202 , 208, 

246 

2780 

DATA 

189 , 

32, 18, 133, 

34 

2240 

DATA 

169, 2, 

162, 8, 

168 

2790 

DATA 

165, 

252, 32, 176, 

12 

2250 

DATA 

32, 186, 

255, 166, 

252 

2800 

DATA 

234 , 

162, 0, 177, 

65 

2260 

DATA 

189, 32, 

18, 133, 

34 

2810 

DATA 

234 , 

157, 64, 3, 

232 

2270 

DATA 

165, 252, 

32, 176, 

12 

2820 

DATA 

200 , 

198, 34, 208, 

244 

2280 

DATA 

234, 162, 

0, 177, 

65 

2830 

DATA 

160, 

0, 185, 195, 

14 

2290 

DATA 

234, 157, 

64 , 3, 

200 

2840 

DATA 

157, 

64, 3, 200, 

232 

2300 

DATA 

232, 198, 

34, 208, 

244 

2850 

DATA 

192, 
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DATA 

160, 0, 
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14 

2860 

DATA 

252, 
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DATA 
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232 
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DATA 
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DATA 
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DATA 
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255 
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DATA 

252, 185, 
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DATA 

173, 

17, 208, 41, 

239 
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DATA 

61 , 3, 
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64 
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DATA 
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192 
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DATA 

160, 3, 
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29 10 

DATA 
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DATA 
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2920 

DATA 
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34 

2380 

DATA 
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DATA 
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2390 

DATA 
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2940 

DATA 
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18 
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DATA 
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141 
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DATA 

133, 
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32 

24 10 

DATA 

17, 208, 
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DATA 

177, 
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32 

2420 

DATA 
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32, 186, 

255 
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DATA 

147, 
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13 

2430 

DATA 
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DATA 

32 , 
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36 

2440 

DATA 
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32 
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DATA 
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34, 165, 37, 

229 

2450 

DATA 

192, 255, 

162, 2, 

32 
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DATA 

35, 

176, 240, 169, 

2 

2460 

DATA 

15, 243, 

32, 31, 

243 

3010 

DATA 

32, 

195, 255, 32, 

89 

2470 

DATA 

165, 186, 

32, 180, 

255 

3020 

DATA 
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144, 3, 32, 

96 

2480 

DATA 

165, 185, 
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DATA 
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2490 

DATA 
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DATA 
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13 
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DATA 
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DATA 

230, 

252, 

173, 

17, 

208 

3620 

DATA 

13, 

13, 

0, 

0, 

0 

3080 

OATA 

9, 

16, 

141 , 

17, 

208 

3630 

DATA 

0,' 

0, 

0, 

0, 

0 

3090 

DATA 
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DATA 
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0 
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DATA 
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76 

3670 

DATA 

0, 
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32 
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DATA 
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8, 

198, 

253, 

16 

3680 

DATA 

165 , 

255, 

41 , 

15, 

10 

3140 

DATA 

3, 

76, 

9, 

12, 

230 

3690 

DATA 
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10, 

133, 

87 
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DATA 

252, 
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17, 

208, 

9 

3700 

DATA 

32, 

165, 

255, 

41 , 

13 
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DATA 

16, 

141 , 

17, 

208, 

32 

3710 

DATA 

5, 
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96, 

72, 

74 

3170 

DATA 

126 , 

13, 
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75, 

1 1 

3720 

DATA 

74, 
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74, 

32, 

88 

3180 

DATA 

169, 

227, 

160, 

13, 

32 

3730 

DATA 

13, 
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15, 

24 
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DATA 

30, 
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96, 
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DATA 
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DATA 

169, 
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DATA 
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208, 

9, 

16 

3210 

DATA 

169 , 
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14 1 , 

255, 

1 

3760 

DATA 

141 , 

17, 

208, 

169, 

224 

3220 

DATA 

169, 

15, 

162, 

8, 

168 

3770 

DATA 

160, 

14 , 

32, 

30, 

171 

3230 

DATA 

32, 

186 , 

255, 

162, 

2 

3780 

DATA 

32, 

79, 

15, 

201 , 

89 

3240 

DATA 

189, 

254, 

1 , 

240 , 

3 

3790 

DATA 

208, 

1 , 

96, 

201 , 

78 

3250 

DATA 

232, 

208, 

248 , 

138, 

162 

3800 

DATA 

208, 

244, 

76, 

62, 

15 

3260 

DATA 

254 , 

160, 

1 , 

32, 

189 

3810 

DATA 

169, 

255, 

160 , 

17, 

32 

3270 

DATA 

255, 

32, 

192, 

255, 

32 

3820 

DATA 

30, 

171 , 

165, 

252, 

10 

3280 
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89, 

15, 

8, 

169, 

15 

3830 

DATA 

10, 
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10, 

166, 

232 

3290 

DATA 

32, 
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255, 

40, 

176 

3840 

DATA 

188, 

32, 

18, 

170, 

189 
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DATA 

3, 

76, 

16, 

8, 

169 
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DATA 

0, 
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210, 

255 
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30 

3860 

DATA 

232, 
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208, 

246, 

96 
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DATA 

171 , 
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201 
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0, 
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0, 

173 
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89, 

240 , 
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78 
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17, 

208, 
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208, 

245, 
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8 
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DATA 

17, 

208, 

169 , 

15, 

32 

3350 

DATA 

32, 

36, 

15, 

76, 

59 

3900 

DATA 

195, 

255, 

169, 

15, 

162 

3360 
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10, 

0, 

0, 

32, 

160 

3910 

DATA 

8, 

168, 

32, 

186, 

255 

3370 

DATA 

13, 

173, 

17, 

208, 

9 

3920 

DATA 

169, 

3, 
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200, 

160 

3380 

DATA 

16, 

14 1 , 

17, 

208, 

76 

3930 

DATA 

14, 

32, 
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255 , 

32 

3390 

DATA 

0, 

15, 

0, 

0, 

160 

3940 

DATA 

192, 

255, 
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15, 

76 
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DATA 

0, 

10 , 

10, 

132 , 

66 

3950 

DATA 

195, 

255, 

0 , 

0 , 

32 
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DATA 

10, 
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38 
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DATA 

160 , 

13, 
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208 

3420 

DATA 
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DATA 

0, 
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0 
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DATA 

24, 
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133, 

66 
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DATA 

0 , 
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65 

3440 

DATA 

160, 

0, 
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0, 

0 

3990 

DATA 
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DATA 
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0 , 
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0 
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78 
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DATA 
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0 
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69 
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0 
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DATA 
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68 
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DATA 
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0 
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0 
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13 
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DATA 

145, 

34, 

230, 

34, 

208 

4130 

DATA 
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DATA 

2, 

230, 

35, 

160, 

55 

4 140 

DATA 

68, 

69, 

82, 

69, 

32 


89 



4150 

DATA 
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73 
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DATA 
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246 
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DATA 
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79 
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DATA 
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160, 

12 , 
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DATA 
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13, 

18 

4720 

DATA 
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195, 

255, 

32 

4180 

DATA 

32, 

50, 

38, 

146, 

32 

4730 

DATA 
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8 
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DATA 

46, 
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32, 

86 

4740 

DATA 

32, 
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255, 

208, 

233 
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DATA 
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65 
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OATA 
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144, 

246 

4210 

DATA 
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69 
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DATA 
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32, 

15, 

243 

4220 

OATA 
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32, 

68 , 

75, 

13 

4770 

DATA 

32, 
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243, 

165, 

186 

4230 

DATA 

13, 

18, 

38, 

51 , 

32 

4780 

DATA 

32, 

180, 

255, 

165, 

185 

4240 

DATA 

146, 

32, 
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46 
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32, 

150, 

255, 
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90 
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79 
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4280 

DATA 

0 , 

13, 

13, 

77, 

69 

4830 

DATA 

79, 

13, 

32, 

165, 

255 

4290 

DATA 

84, 

84, 

73, 

32, 

32 

4840 

DATA 

20 1 , 

13, 

240 , 

9, 

40 

4300 

DATA 

28, 

18, 

73, 

76, 

32 

4850 

DATA 

8 , 

144, 

245, 

32, 

2 10 

4310 

DATA 

68 , 

75, 

38, 

68 , 

69 

4860 

DATA 

255, 

144 , 

240, 

32, 

171 

4320 

DATA 

83, 

84, 

73, 

146, 

31 

4870 

DATA 

255 , 

40, 

96, 

0 , 

0 

4330 

DATA 

32, 

78, 

63, 

90, 

73 

4880 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4340 

DATA 

79, 

78, 

69, 

32, 

78 

4890 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4350 

DATA 

69, 

76, 

38, 

68 , 

82 

4900 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4360 

DATA 

45, 

0 , 

13, 

13, 

86 

4910 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4370 

DATA 

65, 

76, 

73, 

68 , 

65 

4920 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4380 

DATA 

84, 

73, 

78 , 

71, 

32 

4930 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4390 

DATA 

46, 

46, 

46, 

0 , 

13 

4940 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4400 

DATA 

13, 

83, 

67, 

82, 

73 

4950 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

44 10 

DATA 

86 , 

79, 

38, 

32, 

0 

4960 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4420 

DATA 

13, 

13, 

38, 

76, 

69 

4970 

DATA 

0 , 

0 , 

0 , 

0 , 

0 

4430 

DATA 

71 , 

71 , 

79, 

32, 

32 

4980 

DATA 

0 , 

0 , 

0 , 

52, 

56 

4440 

DATA 

0 , 

44 , 

88 , 

44, 

82 

4990 

DATA 

57, 

32, 

32, 

52, 

57 

4450 

DATA 

0 , 

85, 

73, 

45, 

0 

5000 

DATA 

57, 

48, 

32, 

52, 

57 

4460 

DATA 

44, 

88 , 

44, 

87, 

0 

5010 

DATA 

56, 

48, 

32, 

52, 

57 

4470 

DATA 

85, 

73, 

43, 

0 , 

13 

5020 

DATA 

55, 

48, 

32, 

52, 

57 

4480 

DATA 

13 , 

18, 

28, 

70, 

73 

5030 

DATA 

54, 

48, 

32, 

52, 

57 

4490 

DATA 

78, 

69, 

38, 

67, 

79 

5040 

DATA 

52, 

32, 

32, 

53, 

48 

4500 

DATA 

80, 

73, 

63, 

32, 

32 

5050 

DATA 

52, 

48, 

32, 

53, 

48 

4510 

DATA 

33, 

146, 

31 , 

0 , 

13 

5060 

DATA 

51 , 

48, 

32, 

53, 

48 

4520 

DATA 

13, 

86 , 

85, 

79, 

73 

5070 

DATA 

50, 

48, 

32, 

53, 

48 

4530 

DATA 

32, 

67, 

79, 

78, 

84 

5080 

DATA 

49, 

48, 

32, 

53, 

48 

4540 

DATA 

73, 

78, 

85 , 

65, 

82 

5090 

DATA 

48, 

48, 

147, 

31 , 

32 

4550 

DATA 

69, 

32, 

65, 

32, 

67 

5100 

DATA 

32, 

32, 

32, 

32, 

67 

4560 

DATA 

79, 

80 , 

73, 

65, 

82 

5110 

DATA 

79, 

80, 

73, 

65, 

32 

4570 

DATA 

69, 

63, 

0 , 

0 , 

0 

5120 

DATA 

68 , 

73, 

32, 

70, 

73 

4580 

DATA 

0 , 

169, 

850, 

160, 

16 

5 130 

DATA 

76, 

69, 

32, 

80 , 

69 

4590 

DATA 

76, 

30, 

171 , 

32, 

228 

5140 

DATA 

82, 

32, 

67, 

54, 

52 

4600 

DATA 

255 , 

240 , 

851 , 

96, 

169 

5150 

DATA 

32, 

38, 

32, 

49, 

53 

4610 

DATA 

15, 

162, 

8 , 

168, 

32 

5160 

DATA 

52, 

49, 

13, 

32, 

32 

4620 

DATA 

186 , 

255 , 

169 , 

1 , 

162 

5170 

DATA 

32, 

32, 

32 , 

45, 

45 

4630 

DATA 

246, 

160, 

16, 

32, 

189 

5180 

DATA 

45, 

45, 

45, 

45, 

45 

4640 

DATA 

255, 

76, 

198, 

255, 

169 

5190 

DATA 

45, 

45, 

45, 

45, 

45 

4650 

DATA 

32, 

44, 

169, 

13, 

76 

5200 

DATA 

45 , 

45, 

45, 

45, 

45 

4660 

DATA 

210 , 

255, 

38, 

210 , 

255 

5210 

DATA 

45, 

45, 

45, 

45, 

45 

4670 

DATA 

138 , 

72, 

158, 

72, 

32 

5220 

DATA 

45, 

45, 

45, 

45, 

45 

4680 

DATA 

225, 

255, 

24, 

208, 

1 

5230 

DATA 

45, 

13, 

13, 

32, 

32 

4690 

DATA 

56, 

104, 

168, 

104, 

170 

5240 

DATA 

32, 

32, 

32 , 

18, 

40 


90 


5250 

DAT A 

67, 

41, 

146, 

32, 

32 

5730 

DATA 

38, 

38 , 

e. 

11 , 

st 

5260 

DATA 

49, 

37, 

36, 

31, 

32 

5740 

DATA 

88 , 

18, 

94 . 

140 , 

SI 

5270 

DATA 

66 , 

89, 

32, 

67, 

46 

5750 

DATA 

38, 

70, 

73 , 

70 , 

00 

5280 

DATA 

32, 

67, 

69, 

62 , 

82 

5760 

DATA 

32, 

84 , 

82, 

78 , 

00 

5290 

DATA 

79, 

78, 

73, 

13, 

13 

5770 

DATA 

80, 

79, 

32, 

76, 

05 

5300 

DATA 

32, 

32, 

32, 

32, 

32 

5780 

DATA 

78, 

71 , 

79, 

32 , 

68 

5310 

DATA 

80, 

85, 

66 , 

66 , 

76 

5790 

DATA 

65, 

32, 

67, 

79, 

80 

5320 

DATA 

73, 

67, 

79, 

32, 

68 

5800 

DATA 

46, 

46, 

0, 

13, 

32 

5330 

DATA 

79, 

77, 

73, 

78, 

73 

5810 

DATA 

18, 

88 , 

94, 

146, 

31 

5340 

DATA 

79, 

32, 

49, 

37, 

56 

5820 

DATA 

32, 

70, 

73, 

76, 

69 

5350 

DATA 

53, 

32, 

42, 

13, 

13 

5830 

DATA 

32, 

73, 

76, 

76, 

69 

5360 

DATA 

32, 

32, 

32, 

32, 

32 

5840 

OATA 

71 , 

65, 

76, 

69, 

32 

5370 

DATA 

32, 

32, 

32, 

32, 

32 

5850 

DATA 

32, 

33, 

32, 

0 , 

13 

5380 

DATA 

32, 

32, 

42, 

42 , 

42 

5860 

DATA 

32, 

76, 

65, 

32, 

76 

5390 

DATA 

42, 

42, 

42, 

42, 

13 

5870 

DATA 

73, 

83, 

84, 

65, 

32 

5400 

DATA 

13, 

13, 

13, 

16, 

32 

5880 

DATA 

68 , 

65, 

32, 

67, 

79 

5410 

DATA 

49, 

32, 

146, 

32, 

70 

5890 

DATA 

80, 

46, 

32, 

69, 

39 

5420 

DATA 

79, 

82 , 

77, 

63 , 

84 

5900 

DATA 

18, 

88 , 

80, 

73, 

69 

5430 

DATA 

84 , 

65, 

90, 

73, 

79 

5910 

DATA 

78, 

65, 

146, 

31 , 

0 

5440 

DATA 

78, 

69, 

32, 

32, 

13 

5920 

OATA 

13, 

13, 

86 , 

85, 

79 

5450 

DATA 

13, 

18, 

32, 

50, 

32 

5930 

DATA 

73, 

32, 

67, 

79, 

80 

5460 

DATA 

146 , 

32, 

67, 

63, 

82 

5940 

DATA 

73, 

65, 

82, 

69, 

32 

5470 

DATA 

73, 

67, 

65, 

32, 

32 

5950 

DATA 

73, 

32, 

80, 

82, 

79 

5480 

DATA 

68 , 

73, 

82, 

69, 

67 

5960 

DATA 

71 , 

82 , 

65, 

77, 

77 

5490 

DATA 

84 , 

79, 

82, 

89, 

13 

5970 

DATA 

73, 

32, 

73 , 

78, 

32 

5500 

DATA 

13, 

18, 

32, 

31 , 

32 

5980 

DATA 

77, 

69, 

77, 

46, 

32 

5510 

DATA 

146, 

32, 

67, 

79, 

80 

5990 

DATA 

46, 

46, 

46, 

13, 

13 

5520 

DATA 

73, 

65, 

32, 

70, 

73 

6000 

DATA 

18, 

32, 

49 , 

32, 

146 

5530 

DATA 

76, 

69, 

13, 

13, 

13 

60 10 

DATA 

32, 

46, 

46, 

46, 

32 

5540 

DATA 

68 , 

73, 

71, 

73, 

84 

6020 

OATA 

83, 

69, 

78, 

90, 

65 

5550 

DATA 

65, 

32, 

76, 

65, 

32 

6030 

OATA 

32, 

83 , 

79, 

83, 

84 

5560 

DATA 

83, 

67, 

69, 

76, 

84 

6040 

DATA 

65, 

13, 

13, 

18, 

32 

5570 

DATA 

65 , 

32, 

32, 

32, 

18 

6050 

DATA 

50 , 

32, 

146 , 

32, 

46 

5580 

OATA 

63, 

157, 

0 , 

73, 

0 

6060 

DATA 

46, 

46, 

32, 

79, 

32 

5590 

DATA 

36, 

0 , 

13, 

77, 

69 

6070 

DATA 

79, 

71 , 

78, 

73, 

32 

5600 

DATA 

84 , 

84, 

73, 

32, 

73 

6080 

DATA 

70, 

73, 

76, 

69, 

32 

5610 

DATA 

76, 

32, 

68 , 

73, 

83 

6090 

DATA 

83, 

69, 

80 , 

65, 

82 

5620 

DATA 

67, 

79, 

32, 

£8, 

18 

6100 

DATA 

65, 

84, 

79, 

32, 

32 

5630 

DATA 

83, 

79, 

82, 

71, 

46 

61 10 

DATA 

63, 

13, 

0 , 

13, 

13 

5640 

DATA 

146 , 

31 , 

32, 

78, 

69 

6120 

DATA 

80, 

82, 

88 , 

46 , 

32 

5650 

DATA 

76, 

32, 

68 , 

82, 

46 

6 130 

DATA 

70, 

73, 

76 , 

69, 

32 

5660 

DATA 

45, 

0 / 

28, 

89, 

69 

6140 

DATA 

58, 

32, 

0 , 

0 , 

0 

5670 

DATA 

83, 

47, 

78, 

79, 

157 

6150 

DATA 

169 , 

99, 

85 , 

1 12, 

255 

5680 

OATA 

157, 

157, 

157, 

157, 

157 

6160 

DATA 

32, 

76, 

255 , 

0 , 

8 

5690 

DATA 

0 , 

18, 

30, 

89, 

69 

6170 

DATA 

0 , 

49, 

32, 

0 , 

181 

5700 

DATA 

83, 

146, 

31, 

32, 

32 

6 180 

DATA 

40 , 

160, 

0 , 

0 , 

7 

5710 

DATA 

32, 

0 , 

30, 

18, 

78 

6190 

DATA 

0 , 

0 , 

255, 

0 , 

79 

5720 

DATA 

79, 

146, 

31, 

32, 

32 

6200 

DATA 

160, 

0 , 

0 , 

0 , 

0 








6210 

DATA 

0 , 

0 , 

0 , 

0 



31 


100 

103 

103 

1 10 

120 

130 

140 

130 

160 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

330 

400 

4 10 

420 

430 

440 

430 

460 

470 

480 

490 

500 

510 

520 

330 

540 

550 

360 

370 

380 

590 

600 

610 

620 

630 

640 

630 

660 

670 


REM **************************** 

REM LISTATO N 20 

REM **************************** 

REM ISTRUZIONI 

REM TERMINATA LA BATTITURA, 

REM SALVARE IL PROGRAMMA. 

REM DARE P 0 KE 44,24 :POKE 6144 ,0 
REM RICARICARE IL PRG. E RUN 
REM **************************** 

CLR > POKE 53280,8 ! P 0 KE 53281 , 8 !PRINTCHR*< 147 )CHR*< 144 ) 

PR INT'aHHatMan^TTENDERE QUALCHE ISTANTE, PREGO..." 
FORAI= 49152 T 049187 iREADBl!C 1 =C 1 +B 1 SPOKEA 1 ,B 1 iNEXT 
IFC 1 = 4646 THEN 320 : REM CHECKSUM DI ROUTINE SAVE DATA 
PRINTCHR*< 147 )'«ERRORE NELLE ISTRUZIONI DATA.' 

PRINT"VERIFICARE NUMERI DI LINEA 680 - 790 'SEND 
FORA 2 = 2049 TO 3272 !REA 0 B 2 iC 2 =C 2 +B 2 iP 0 KEA 2 ,B 2 INEXT 
IFC 2 = 113601 THEN 360 ! REM CHECKSUM PER I DATA DEL PROGRAMMA 
PRINTCHRSC 147 )"«ERRORE NELLE ISTRUZIONI DATA.' 

PRINT'VERIFICARE NUMERI DI LINEA 1000 -****':END 
PR 1 NTCHR*< 147 )'I DATI SONO STATI CARICATI.' 

PRINT"POSSIAMO PROCEDERE ALLA REGISTRAZIONE' 

PR INT'DEL PROGRAMMA FINALE .MI' 

INPUT"SALVO SU NASTRO O DISCO <N/D)';DV* 

IFOV*="N'THENK 1 = 1 !GOTO 430 
IFDV*=“D"THENK 1 = 8 iGOTO 430 
GOTO 390 

PRINT'BBINSERISCI IL SUPPORTO MAGNETICO" 

PRINT'NELL'APPOSITO DISPOSITIVO DI SCRITTURA." 
PRINT'*FREMI LO SPAZIO QUANOO VUOI PARTIRE." 

GETA*i IFA*="THEN 460 
IFA*=" "THEN 490 
GOTO 460 

NM»=" 34 -C 0 PIA INTERO*!PRINTCHR*( 17 ) 

IF<K 1 = 8 )AN 0 <NM*="" )THENNI* 1 *= " -ED I SOFT- ' 

K 2 =LEN < N 14 * > ! IFK 2 > 16 THENK 2 = 16 
FORX= 0 TOK 2 - 1 iK*=MID*<NM*+CHR*< 0 ),X+ 1 , 1 ) 

K 3 =ASC(KS) 

POKE 49188 +X,K 3 iREM SCRIVE NOME DEL FILE 
NEXT X 

P 0 KE 49155 ,K 1 ! REM NUMERO PERIFERICA 
P 0 KE 49 162 ,K 2 s REM LUNIGH . NOME FILE 
P 0 KE 49171 , 01 iREM INIZIO BYTE BASSO 
POKE 49175,08 !REM INIZIO BYTE ALTO 
P 0 KE 49181 , 16 * REM FINE BYTE BASSO 
P 0 KE 49183 , 11 :REM FINE BYTE ALTO 
SYS 49132 

FORZ= 0 TO 2000 iNEXT 

POKE 53280,0 * POKE 53281 , 0 iPRINTCHR*< 147 )CHR*C 129 ) 

PRINTCHR*(17)CHR*<17)"IL PROGRANMA E‘ STATO CORRETTAMENTE" 
PRINT*REGISTRATO COL NONE "CHR*<30)LEFT*<NM*,16) 

FORZ = 0 TO 5000 iNEXT* SYS 64738 
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680 DATA 169, 

1 , 163 

1400 

DATA 

33, 

40, 

67, 

41 , 

33 

690 DATA 

8, 160, 

1 

1410 

DATA 

79, 

84, 

84, 

30, 

56 

700 DATA 

33, 186, 355 

1420 

DATA 

51 , 

32, 

67, 

76, 

65 

710 DATA 169, 

3, 163 

1430 

DATA 

85, 

68, 

73, 

79, 

32 

730 DATA 

36, 160, 193 

1440 

DATA 

67, 

69, 

83, 

82, 

79 

730 DATA 

33, 189, 333 

1450 

DATA 

78, 

73, 

13, 

0, 

169 

740 DATA 169, 

1 , 133 

1460 

DATA 

1 , 

133, 

5, 

169, 

0 

730 DATA 351, 169, 

8 

1470 

OATA 

133, 

6, 

169, 

54, 

133 

760 DATA 133, 353, 169 

1480 

DATA 

1 , 

169, 

27, 

141 , 

17 

770 DATA 331, 163, 

4 

1490 

DATA 

308, 

32, 

87, 

1 1 , 

17 

780 DATA 160, 

11, 

32 

1500 

DATA 

18, 

32, 

68, 

73, 

83 

790 DATA 316, 333, 

96 

1510 

DATA 

87, 

79, 

32, 

79, 

83 

830 REM ****************** 

1520 

DATA 

73, 

71 , 

73, 

78, 

65 

850 REM DATA DEL PROGRAMMA 

1530 

DATA 

76, 

69, 

32, 

33, 

146 

870 REM ****«*»»****«»**** 

1540 

DATA 

17, 

13, 

0, 

88 , 

33 

1000 DATA 

1 1 , 

8 , 

0, 0, 158 

1550 

DATA 

338 , 

355 , 

340, 

351 , 

169 

1010 DATA 

30, 

48, 

54, 49, 0 

1560 

DATA 

11, 

14 1 , 

17, 

308, 

163 

1030 DATA 

0, 

0, 

169, 151, 141 

1570 

DATA 

80, 

160, 

0, 

136, 

308 

1030 DATA 

0, 

331 , 

169, 135, 163 

1580 

DATA 

353, 

303, 

208, 

350, 

130 

1040 OATA 

1 1 , 

133, 

3, 134, 4 

1590 

DATA 

169, 

0, 

133, 

3, 

169 

1050 DATA 

169, 

0, 

163, 5, 133 

1600 

DATA 

24 , 

133, 

4, 

165, 

6 

1060 DATA 

5, 

134 , 

6, 169, 8 

1610 

DATA 

166, 

5, 

141 , 

51 , 

1 1 

1070 DATA 

33, 

13, 

337, 169, 111 

1620 

DATA 

143, 

50, 

1 1 , 

165, 

5 

1080 DATA 

33, 

185, 

337, 169, 77 

1630 

DATA 

164 , 

6, 

33, 

9, 

1 1 

1090 DATA 

33, 

331 , 

337, 169, 45 

1640 

DATA 

165 , 

2, 

301 , 

3 , 

144 

1100 DATA 

33, 

331 , 

337, 169, 87 

1650 

DATA 

3, 

32, 

127, 

10, 

330 

1110 DATA 

33, 

331 , 

337, 160, 0 

1660 

DATA 

6, 

166 , 

5, 

189, 

51 

1130 DATA 

163, 

5, 

33, 331, 337 

1670 

DATA 

1 1 , 

197, 

6, 

176, 

12 

1130 DATA 

165 , 

6, 

33, 331, 337 

1680 

DATA 

163, 

0, 

133, 

6, 

330 

1140 DATA 

169, 

30, 

33, 331, 337 

1690 

DATA 

5, 

165, 

5, 

301 , 

36 

1 150 DATA 

177, 

3, 

33, 331, 337 

1700 

DATA 

176, 

6, 

330, 

4, 

165 

1160 DATA 

300, 

193, 

30, 144, 346 

1710 

DATA 

4, 

308, 

211, 

169, 

54 

1170 DATA 

33, 

354 , 

337, 34, 165 

1720 

DATA 

133, 

1 , 

169, 

37, 

14 1 

1180 DATA 

3, 

105 , 

30, 133, 3 

1730 

DATA 

17, 

308, 

33, 

87, 

1 1 

1 190 DATA 

144, 

3, 

330, 4, 34 

1740 

DATA 

17, 

18, 

33, 

33, 

33 

1300 DATA 

163, 

5, 

166, 6, 105 

1750 

DATA 

33 , 

68, 

73, 

83, 

67 

1310 DATA 

30, 

133, 

5, 144, 3 

1760 

DATA 

79, 

33, 

67, 

79, 

80 

1330 DATA 

330 , 

6, 

334, 6, 144 

1770 

DATA 

73, 

65, 

33, 

33, 

33 

1330 DATA 

173, 

301 , 

47, 144, 169 

1780 

DATA 

146, 

17, 

13, 

0, 

88 

1340 DATA 

169, 

8, 

33, 13, 337 

1790 

DATA 

33, 

338 , 

355, 

240, 

351 

1350 DATA 

169, 

111, 

33, 185, 337 

1800 

DATA 

169, 

1 1 , 

141 , 

17, 

308 

1360 DATA 

169, 

85, 

33, 331, 337 

18 10 

DATA 

163, 

80, 

160, 

0, 

136 

1370 DATA 

169, 

67, 

33, 331, 337 

1820 

DATA 

308 , 

253, 

303, 

308 , 

250 

1380 DATA 

33, 

354 , 

337, 130, 163 

1830 

DATA 

120, 

169, 

0, 

133, 

3 

1390 DATA 

0, 

303, 

308, 353, 163 

1840 

data 

169, 

24, 

133, 

4, 

173 

1300 DATA 

0 , 

303, 

308, 353, 33 

1850 

DATA 

50, 

1 1 , 

174, 

51 , 

1 1 

1310 DATA 

87, 

1 1 , 

147, 17, 33 

1860 

DATA 

133, 

5, 

134, 

6, 

165 

1330 DATA 

33, 

33, 

67, 79, 80 

1870 

DATA 

5, 

164 , 

6, 

32, 

7 

1330 DATA 

73, 

65 , 

84, 79, 83 

1830 

DATA 

1 1 , 

165, 

2, 

201 , 

3 

1340 DATA 

69, 

33, 

51, 30, 48 

1890 

DATA 

144, 

3, 

32, 

88, 

10 

1350 DATA 

33 , 

45, 

33, 80, 69 

1900 

DATA 

230, 

6, 

166, 

5, 

189 

1360 DATA 

83, 

33, 

67, 61, 54 

1910 

DATA 

51 , 

1 1 , 

197, 

6 , 

176 

1370 DATA 

53, 

33, 

38, 33, 49 

1920 

DATA 

12, 

169, 

0, 

133, 

6 

1380 DATA 

53, 

53, 

49, 33, 13 

1930 

DATA 

330, 

5, 

165, 

5, 

20 1 

1330 DATA 

17, 

33, 

33, 33, 33 

1940 

DATA 

36, 

176, 

8, 

230, 

4 


33 


1950 

DATA 

165 , 

4, 

208, 

211, 

76 

2500 

DATA 

4, 

173, 0, 221, 10 

1960 

DATA 

238 r 

8, 

169, 

0, 

32 

2510 

DATA 

8, 

10, 38, 107, 40 

1970 

DATA 

163 / 

10, 

169, 

151 , 

141 

2520 

DATA 

38, 

107, 202, 208, 242 

1980 

DATA 

0 r 

221 , 

169, 

55, 

133 

2530 

OATA 

169, 

52, 133, 1, 165 

1990 

DATA 

1 , 

169, 

27, 

141 , 

17 

2540 

DATA 

107, 

73, 255, 96, 9 

2000 

DATA 

208 , 

88, 

32, 

87, 

1 1 

2550 

DATA 

128, 

72, 32, 163, 10 

2010 

DATA 

17, 

17, 

32, 

32, 

32 

2560 

DATA 

152, 

32, 163, 10, 104 

2020 

DATA 

32, 

32, 

32, 

67, 

79 

2570 

DATA 

72, 

16, 10, 160, 0 

2030 

DATA 

80 , 

73, 

65, 

32, 

85 

2580 

DATA 

177, 

3, 32, 163, 10 

2040 

DATA 

76, 

84, 

73, 

77, 

65 

2590 

DATA 

200 , 

208, 248, 32, 213 

2050 

DATA 

84, 

65, 

32, 

48, 

48 

2600 

DATA 

10, 

133, 2, 104, 48 

2060 

DATA 

32, 

79, 

75, 

32, 

17 

2610 

DATA 

10, 

160, 0, 32, 213 

2070 

DATA 

13, 

0, 

76, 

123, 

227 

2620 

DATA 

10, 

145, 3, 200, 208 

2080 

DATA 

165, 

5 , 

32, 

56, 

10 

2630 

DATA 

248, 

96, 0 , 0 , 20 

2090 

DATA 

32, 

87, 

11, 

32, 

83 

2640 

DATA 

20 , 

20, 20, 20, 20 

2100 

DATA 

69 , 

84, 

84, 

30, 

32 

2650 

DATA 

20, 

20, 20, 20, 20 

21 10 

DATA 

32, 

0, 

165, 

6, 

32 

2660 

DATA 

20, 

20, 20, 20, 20 

2120 

DATA 

56, 

10, 

169, 

13, 

76 

2670 

DATA 

20, 

18, 18, 18, 18 

2130 

DATA 

210, 

255, 

248, 

170, 

169 

2680 

DATA 

18, 

18, 18, 17, 17 

2140 

DATA 

0, 

224, 

0, 

240, 

7 

2690 

DATA 

17, 

17, 17, 17, 16 

2 150 

DATA 

24, 

105, 

ir 

202, 

76 

2700 

DATA 

16, 

16, 16, 16, 104 

2160 

DATA 

60, 

10, 

216, 

72, 

74 

2710 

DATA 

133, 

53, 104, 133, 54 

2170 

DATA 

74, 

74, 

74, 

32, 

81 

2720 

DATA 

160, 

0, 230, 53, 208 

2180 

DATA 

10, 

104, 

41, 

15, 

9 

2730 

DATA 

2 , 

230, 54, 177, 53 

2190 

DATA 

48, 

76, 

210, 

255, 

169 

2740 

DATA 

240, 

11, 32, 210, 255 

2200 

DATA 

54, 

133, 

1 , 

32, 

87 

2750 

DATA 

230, 

53, 208, 245, 230 

2210 

DATA 

1 1 , 

69, 

82, 

82, 

30 

2760 

DATA 

54, 

208, 241, 230, 53 

2220 

DATA 

32, 

84 , 

82, 

79, 

86 

2770 

DATA 

208, 

2, 230, 54, 108 

2230 

DATA 

65, 

84, 

79, 

32, 

32 

2780 

DATA 

53, 

0, 120, 173, 0 

2240 

DATA 

32, 

58, 

32, 

84, 

82 

2790 

DATA 

28, 

9, 12, 141, 0 

2250 

DATA 

30, 

32, 

3 2, 

0, 

32 

2800 

DATA 

28, 

162, 0, 202, 208 

2260 

DATA 

23, 

10, 

120, 

169, 

52 

2810 

DATA 

253, 

173, 0, 24, 9 

2270 

DATA 

133 , 

1 , 

96, 

169, 

54 

2820 

DATA 

10 , 

41, 239, 141, 0 

2280 

DATA 

133, 

1 , 

32, 

87, 

1 1 

2830 

DATA 

24, 

32, 141, 5, 208 

2290 

DATA 

69, 

82, 

82, 

30, 

32 

2840 

DATA 

3, 

108, 252, 255, 133 

2300 

OATA 

84 , 

82 , 

79, 

86 , 

65 

2850 

DATA 

128, 

32, 141, 5, 133 

2310 

DATA 

84 , 

79, 

58, 

32, 

84 

2860 

DATA 

129, 

173, 0, 28, 73 

2320 

DATA 

82, 

30 , 

32, 

32, 

0 

2870 

DATA 

8, 

141, 0, 28, 165 

2330 

DATA 

32, 

29, 

10, 

120, 

169 

2880 

DATA 

128, 

16, 14, 160, 0 

2340 

DATA 

52, 

133, 

1, 

96, 

133 

2890 

DATA 

32, 

141, 5, 153, 0 

2350 

DATA 

107, 

169, 

53, 

133, 

1 

2900 

DATA 

3, 

200, 208, 247, 169 

2360 

DATA 

169, 

11, 

141 , 

0, 

221 

2910 

DATA 

144, 

44, 169, 128, 133 

2370 

DATA 

173, 

0, 

22 1 , 

16, 

251 

2920 

DATA 

130, 

32, 189, 5, 32 

2380 

DATA 

169, 

3, 

141, 

0, 

221 

2930 

DATA 

93, 

5, 165, 128, 48 

2330 

DATA 

162, 

4, 

169, 

3, 

70 

2940 

DATA 

201 , 

160, 0, 185, 0 

2400 

DATA 

107, 

106, 

70, 

107, 

106 

2950 

OATA 

3, 

32, 93, 5, 200 

2410 

DATA 

74, 

74, 

234, 

141 , 

0 

2960 

DATA 

208 , 

247, 76, 24, 5 

2420 

DATA 

221 , 

202 , 

208, 

239, 

162 

2970 

DATA 

133, 

130, 44, 0, 24 

2430 

DATA 

1 , 

202, 

208 , 

253, 

169 

2980 

DATA 

16, 

251, 169, 16, 141 

2440 

DATA 

52, 

133, 

1 , 

96, 

169 

2990 

DATA 

0, 

24, 44, 0, 24 

2450 

DATA 

53, 

133, 

ir 

169, 

1 1 

3000 

DATA 

48 , 

251, 162, 4, 169 

2460 

DATA 

141 , 

0 , 

221 , 

173, 

0 

3010 

DATA 

0, 

6, 130, 42, 10 

2470 

DATA 

221 , 

16, 

251 , 

169, 

3 

3020 

DATA 

6 , 

130, 42, 10, 141 

2480 

DATA 

141 , 

0, 

221 , 

162, 

5 

3030 

DATA 

0, 

24, 202, 208, 240 

2490 

DATA 

202, 

234, 

208 , 

252, 

162 

3040 

DATA 

162, 

1, 202, 208, 254 


34 


3050 

3060 

3070 

3080 

3090 

3100 

31 10 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

Ì300 

3310 

3320 

3330 

3340 

3350 

*360 

3370 

3380 

3390 

1400 

34 10 

*420 

3430 

3440 


OATA 

234 , 

234 

OATA 

0, 

24 

DATA 

24, 

16 

□ATA 

141 , 

0 

DATA 

24, 

48 

DATA 

202, 

208 

DATA 

24, 

162 

DATA 

24, 

74 

DATA 

102, 

130 

DATA 

202 , 

208 

DATA 

141 , 

0 

DATA 

96, 

88 

DATA 

127, 

133 

DATA 

133, 

7 

DATA 

10, 

165 

OATA 

165, 

0 

DATA 

160, 

208 

DATA 

133, 

0 

DATA 

201 , 

3 

DATA 

3, 

240 

DATA 

240, 

64 

DATA 

60, 

201 

DATA 

198, 

10 

DATA 

192, 

44 

DATA 

0, 

165 

DATA 

16, 

200 

DATA 

10, 

166 

OATA 

254, 

240 

DATA 

2, 

173 

OATA 

251 , 

165 

DATA 

208, 

2 

DATA 

0, 

165 

DATA 

230, 

10 

DATA 

221 , 

165 

DATA 

0, 

0 

DATA 

70, 

38 

DATA 

146 , 

56 

DATA 

0 , 

239 

OATA 

255, 

29 

DATA 

0, 

0 


169, 

15 , 

141 

96, 

44, 

0 

251 , 

169, 

16 

24, 

44, 

0 

251 , 

162, 

4 

253, 

142, 

0 

4, 

173, 

0 

8, 

74, 

74 

40, 

102, 

130 

24 1 , 

169, 

15 

24, 

165, 

130 

165, 

128 , 

41 

6 , 

165, 

129 

169, 

1 , 

133 

130, 

133, 

0 

16, 

11, 

201 

248, 

169, 

240 

76, 

£08, 

5 

144, 

72, 

20 1 

68, 

201 , 

15 

36, 

10, 

48 

1 1 , 

240, 

7 

208, 

13, 

169 

169, 

176, 

133 

0 7 

48, 

252 

169, 

0, 

133 

10, 

189 , 

219 

28, 

141 , 

254 

254, 

2 , 

48 

130, 

201 , 

144 

169, 

160, 

133 

0, 

48, 

252 

201 , 

1 , 

208 

0, 

120, 

96 

0, 

0, 

167 

255, 

0, 

25 

240, 

105, 

1 

207, 

0, 

40 

202, 

0, 

3 

0, 

0, 

0 
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tee rem **************************** 

103 REM LISTATO N 21 

103 REM **************************** 

110 REM ISTRUZIONI 

120 REM SALVARE IL PROGRAMMA 

130 REM DARE 1 POKE 44,24 «P0KE6144,0 

140 REM RICARICARE DIGITANDO RUN 

160 REM **************************** 

260 CLR * P0KE53280,8 * P0KE53281,8IPRINTCHRS<147)CHR*<144) 

270 PRINT'HBaHaaaHBHnTTENDERE QUALCHE ISTANTE, PREGO...* 
280 FORA 1*48132T049187IREADB1IC1“C1+B1«POKEA1,B1lNEXT 
290 IFC1-4646THEN320IREM CHECKSUM DI ROUTIhE SAVE DATA 
300 PRINTCHRS(147)“■ERRORE NELLE ISTRUZIONI DATA.* 

310 PRINT“VERIFICARE NUMERI DI LINEA 680-790 * IEI« 

320 FORA2«2049TO4383lREADB2iC8=C2+B2tPOKEA2,B2»NEXT>REM ** 

330 IFC2“233376THEN360iREM CHECKSUM PER I DATA DEL PROGRAMMA 
340 PRINTCHR*C147)"■ERRORE NELLE ISTRUZIONI DATA." 

330 PRINT'VERIFICARE NUMERI DI LIFCA 1000-***** I END 
360 PRINTCHR*<147)* I DATI SONO STATI CARICATI.* 

370 PRINT"POSSIAMO PROCEDERE ALLA REGISTRAZIONE* 

380 PRI NT "DEL PROGR AI-MA FINALE.*" 

390 I W’UT * SALVO SU NASTRO 0 DISCO <N/D)*;DV* 

400 IFDV*-*N*THENK1-1IGOTO430 
410 IFDV*-*D’THENK1-8IGOTO430 
420 GOTO390 

430 PRINT**INSERISCI IL SUPPORTO MAGFETICO" 

440 PRINT“NELL'APPOSITO DISPOSITIVO DI SCRITTURA." 

430 PRINT**PREMI LO SPAZIO QUANDO VUOI PARTIRE.* 

460 GETA*lIFA*«**THEN460 
470 IFA*-* "THEN490 
480 GOTO460 

490 KM*«*24-C0PIAT.E.23" <PRINTCHR<< 17) 

300 IF <K1-8 >AM3<NM*»* *)THENhM***-EDISOFT-* 

310 K2-LENCNM») : IFK2>16THEFK2»16 

320 FORX-0TOK2-1«K*«MID*CNM*+CHR*<0),X+1, 1 ) 

330 K3«ASC<K») 

340 POKE49188+X,K3* REM SCRIVE NOME DEL FILE 
330 NEXT X 

360 POKE49133,KlsREM NUFERO PERIFERICA 
370 P0KE49162, K2I REM LUNGH.NOME FILE 
380 P0KE49171,01«REM INIZIO BYTE BASSO 
390 POKE49173/08 * REM INIZIO BYTE ALTO 
600 POKE49181,161 REM FINE BYTE BASSO 
610 POKE49183,111 REM FINE BYTE ALTO 
620 SYS49132 
630 FORZ“0TO2000 1 NEXT 

640 POKE53280,0 *POKE53261,0lPRINTCHR*<147)CHR*<129) 

630 PRINTCHR*< 17)CHR*<17) * IL PROGRAMMA E' STATO CORRETTAMENTE" 
660 PR INT'REG ISTRATO COL NOl-C *CHR* (30 )LEFT*<FM» , 16 ) 

670 FORZ «0TO3000 1 FCXTlSYS64736 
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OGNI MESE IN TUTTE LE EDICOLE 
I 4 BEST SELLER SU CASSETTA 
PER IL TUO COMMODORE 64 E 128 
Avventure, giochi, test, musica 
utility: il software made in Italy 
trionfa in Europa! 




La prima software rivista per II relax con il tuo Commodore 

Commodore 64 e 128 




La prima rivista di avventure 
per Computer 


La nuova dimensione dell’av¬ 
ventura per Computer 













